Numérotation Incrémentée VBA

P

pat1545.

XLDnaute Accro

• 25 Janvier 2006

• #2

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

 

Vote positif 0 Vote négatif

J

JOZZ

XLDnaute Junior

• 25 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

P

pat1545

Guest

• 28 Janvier 2006

• #4

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

 

Vote positif 0 Vote négatif

J

JOZZ

Guest

• 29 Janvier 2006

• #5

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.

 

Vote positif 0 Vote négatif

J

JOZZ

XLDnaute Junior

• 29 Janvier 2006

• #6

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

 

Vote positif 0 Vote négatif