Numérotation Incrémentée VBA

[JOZZ]

🙂 Bonjour, je suis à la recherche de code VBA concernant l'incrémentation automatique dans une feuille EXCEL.
Je désire composer un numéro d'ordre de ce type
ex.: 06/01/001 soit Année/Mois/Numéro incrémenté

Merci d'avance à celle ou celui qui pourra m'aider.

 

[pat1545.]

Salut,

peut etre qq chose comme ça:
(à essayer dans une feuille vierge)

Sub Incre()
Dim I, aaa
For I = 1 To 200
aaa = '06/01/00' & I
Cells(I, 1).Value = aaa
Next
End Sub

Patrick

 

[JOZZ]

Salut et merci de ta réponse mais le problème est que je souhaite un numéro d'ordre à trois chiffre c'est à dire de 001 à 999.
Re-merci quand même pour ton aide

 

[pat1545]

alors 🙂

Sub Incre()
Dim I, aaa
For I = 1 To 200
aaa = '06/01/00' & I
If I > 9 And I = 100 And I <= 200 Then
aaa = '06/01/' & I
End If
Cells(I, 1).Value = aaa
Next
End Sub

Patrick

 

[JOZZ]

Salut pat1545
Encore merci pour ton aide mais le format affiché après exécution de la macro est:
06/01/009
06/01/0010
06/01/00199
06/01/00200
Alors que je souhaite
06/01/001 à 06/01/999
😉 Merci.

 

[JOZZ]

Salut après modification de ton code celà donne bien le résultat escompté.
Merci pour la piste.

Sub Incre()
Dim I, Num
For I = 1 To 200
If I < 10 Then
Num = '06/01/' & '00' & I
ElseIf I < 100 Then
Num = '06/01/' & '0' & I
Else
Num = '06/01/' & I
End If
Cells(I, 1).Value = Num
Next
End Sub