3 chiffres

[JU555]

Bonsoir à toutes et tous !

J'aimerais obtenir un programme qui affiche tous les nombres de 001 à 999.

Merci de votre aide.

- J -

 

[Paritec]

Re : 3 chiffres

Bonjour Ju 555,
voilà le code
a+
Papou

Sub remplir()
Dim x As Integer
Feuil1.Cells(1, 1) = 1
For x = 1 To 999
Feuil1.Cells(x + 1, 1) = Feuil1.Cells(x, 1) + 1
Next
End Sub

 

[Paritec]

Re : 3 chiffres

re tous,
je me rend compte que tu as demandé 001 à 999
voilà avec le format qui va bien
a+
papou

Sub remplir()
Dim x As Integer
Columns("A:A").NumberFormat = "000"
Feuil1.Cells(1, 1) = 1
For x = 1 To 998
Feuil1.Cells(x + 1, 1) = Feuil1.Cells(x, 1) + 1
Next
End Sub

 

[JU555]

Re : 3 chiffres

Merci beaucoup Paritec !