Re : Insérer une suite de numéro croissant, sur nouvelle ligne dans meme colone
En fait je suis en progrès mais je ne sais plus faire un "pas "
mon code est
Sub numéro()
'
' numéro Macro
'
Dim num As Integer
Do
If num < 10 Then
Range("A" & num + 8).Value = "PROV-" & Format(Date, "yy") & "-00" & num
ElseIf num < 100 Then
Range("A" & num + 8).Value = "PROV-" & Format(Date, "yy") & "-0" & num
ElseIf num >= 100 Then
Range("A" & num + 8).Value = "PROV-" & Format(Date, "yy") & "-" & num
End If
'
num = num + 1
Loop Until num = 21
End Sub
Quand je clic sur le bouton, c'est que c'est toute la liste qui s'affiche alors que je voudrais juste créer un numéro et un seul
Comment puis je faire pour mettre mon step à 1 nouveau numéro par clic ?
Merci d'avance