Bonsoir à vous,
Je n’arrive pas à trouver mon erreur.
Je devrais obtenir successivement :
A1234-D1 puis A1234-D2 puis A1234-D3 puis A1234-D4 puis A1234-D5
Or j’obtiens
A1234-D1 puis A2234-D2 puis A3334-D3 puis A4444-D4 puis A5555-D5
Code utilisé
Sub test()
Dim Numérotation As Variant, Nu%, x%, Z%
Numérotation = [a2]
Nu = 1
Z = 2
Numérotation = Numérotation & "-" & "D" & Nu
For x = 1 To 5
Numérotation = Replace(Numérotation, Right(Numérotation, 1), Nu)
Range("c" & Z) = Numérotation
Nu = Nu + 1
Z = Z + 1
Next x
End Sub
pièce jointe
D’avance merci à vous
Je n’arrive pas à trouver mon erreur.
Je devrais obtenir successivement :
A1234-D1 puis A1234-D2 puis A1234-D3 puis A1234-D4 puis A1234-D5
Or j’obtiens
A1234-D1 puis A2234-D2 puis A3334-D3 puis A4444-D4 puis A5555-D5
Code utilisé
Sub test()
Dim Numérotation As Variant, Nu%, x%, Z%
Numérotation = [a2]
Nu = 1
Z = 2
Numérotation = Numérotation & "-" & "D" & Nu
For x = 1 To 5
Numérotation = Replace(Numérotation, Right(Numérotation, 1), Nu)
Range("c" & Z) = Numérotation
Nu = Nu + 1
Z = Z + 1
Next x
End Sub
pièce jointe
D’avance merci à vous