none
Sequence par Groupe en Excel RRS feed

  • Question

  • Bonjour a tous,

    J'ai feuille de 30,000 lignes et j'aimerais créér une sequence par groupe de 5 le drag manuel est trop long,

    Merci de votre aide

    Dante

    exemple:

    Ma colonne sequence      Ma collonne de données

    1                                      HHJHJS

    1                                      PPWJLKFS445

    1                                      JLJSHH

    1                                      HJKHHJK665

    1                                      000055OOP

    2                                      AAAABBBBB

    2                                      HJHHFGH5

    2                                     5566POO

    2                                     55555OO

    2                                     SSSSS9

    <input id="43988417-c112-4bd4-91ef-70f50ce19bac_attachments" type="hidden" />
    jeudi 9 février 2012 15:26

Réponses

  • bonjour Carlos,
     
    en supposant que données soient en colonne B et débutent à la ligne 2
    et que les séquences soient en colonne A
     Sub Macro1()
    For i = 2 To Range("B65536").End(xlUp).Row
        Range("A" & i) = Int((3 + i) / 5)
    Next
    End Sub
      --
    isabelle
     
    Le 2012-02-09 10:26, Carlos Dante a écrit :
    > Bonjour a tous,
    >
    > J'ai feuille de 30,000 lignes et j'aimerais créér une sequence par groupe de 5 le drag manuel est trop long,
    >
    > Merci de votre aide
    >
    > Dante
    >
    > exemple:
    >
    > Ma colonne sequence Ma collonne de données
    >
    > 1 HHJHJS
    >
    > 1 PPWJLKFS445
    >
    > 1 JLJSHH
    >
    > 1 HJKHHJK665
    >
    > 1 000055OOP
    >
    > 2 AAAABBBBB
    >
    > 2 HJHHFGH5
    >
    > 2 5566POO
    >
    > 2 55555OO
    >
    > 2 SSSSS9
    >
    > <input id="43988417-c112-4bd4-91ef-70f50ce19bac_attachments" type="hidden" />
     
    • Marqué comme réponse Carlos Dante jeudi 9 février 2012 20:30
    jeudi 9 février 2012 17:52

Toutes les réponses

  • bonjour Carlos,
     
    en supposant que données soient en colonne B et débutent à la ligne 2
    et que les séquences soient en colonne A
     Sub Macro1()
    For i = 2 To Range("B65536").End(xlUp).Row
        Range("A" & i) = Int((3 + i) / 5)
    Next
    End Sub
      --
    isabelle
     
    Le 2012-02-09 10:26, Carlos Dante a écrit :
    > Bonjour a tous,
    >
    > J'ai feuille de 30,000 lignes et j'aimerais créér une sequence par groupe de 5 le drag manuel est trop long,
    >
    > Merci de votre aide
    >
    > Dante
    >
    > exemple:
    >
    > Ma colonne sequence Ma collonne de données
    >
    > 1 HHJHJS
    >
    > 1 PPWJLKFS445
    >
    > 1 JLJSHH
    >
    > 1 HJKHHJK665
    >
    > 1 000055OOP
    >
    > 2 AAAABBBBB
    >
    > 2 HJHHFGH5
    >
    > 2 5566POO
    >
    > 2 55555OO
    >
    > 2 SSSSS9
    >
    > <input id="43988417-c112-4bd4-91ef-70f50ce19bac_attachments" type="hidden" />
     
    • Marqué comme réponse Carlos Dante jeudi 9 février 2012 20:30
    jeudi 9 février 2012 17:52
  • Merci Isabelle,

    Pefecto!

    Dante

    jeudi 9 février 2012 20:31