Une incrémentation particulière de 10 en 10

Question

Je suis confronté à un problème particulier. Je dois faire une incrémentation de 10 même numéro, comme suit : Colonne A -&gt; 10 fois le même numéro Colonne B -&gt; de 1 à 10 sur le même numéro de la colonne A Ensuite il faudrait automatiser ça vers le bas. Je vois vraiment pas comment faire... D'avance merci de votre aide. Pascal 00001 01 00001 02 00001 03 00001 04 00001 05 00001 06 00001 07 00001 08 00001 09 00001 10 00002 01 00002 02 00002 03 00002 04 00002 05 00002 06 00002 07 00002 08 00002 09 00002 10 00003 01 00003 02 00003 03 00003 04 00003 05 00003 06 00003 07 00003 08 00003 09 00003 10 Je commence fort, je me suis trompé de rubrique.... Il fallait je crois poster, dans Excel VBA, Désolé. Pascal edit Dan : sujet déplacé sur le bon forum...

melch · Accepted Answer

A tester...

Dan · Answer

Par formule ou par code VBA ? Si par VBA, comment on détermine le chiffre de la colonne A ? une boite dialogue qui pose la question ? Cordialement...

R@chid · Answer

Bonjour @ tous, en A1 : =ENT((LIGNE()-1)/10)+1 en B1 : =MOD(LIGNE()-1;10)+1 @ tirer vers le bas format à adapter selon besoin @ + +...

Dan · Answer

RE

Bon comme proposé par formule, voici une proposition par code

Sub test()
'Macro Dan
Dim a As Integer
Dim j As Byte, i As Byte, b As Byte
Range("A1:B" & Range("A65536").End(xlUp).Row).ClearContents
a = InputBox("veuillez donner le nombre d'incrémentation")
For i = 1 To a
    j = 1
    Do While j <= 10
        If j = 10 Then Range("B" & Range("A65536").End(xlUp).Row + 1) = "'" & j Else Range("B" & Range("A65536").End(xlUp).Row + 1) = "'0" & j
        If i < 10 Then Range("A" & Range("A65536").End(xlUp).Row + 1) = "'0000" & i Else Range("A" & Range("A65536").End(xlUp).Row + 1) = "'000" & i
        j = j + 1
    Loop
Next
End Sub

A mettre dans un module en VBA et lui attribuer un bouton

Cordialement

Raja · Answer

Pour la première colonne : =ARRONDI.SUP(LIGNE()/10;0) Pour la 2ème colonne : =ARRONDI.SUP(MOD(LIGNE();10,1);0) Formules à copier vers le bas...