Numérotation auto

Salut,

Alors là facile même pour un débutant comme moi !!

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 08/09/2003 par Creepy
'
Dim Compteur, Nombre, Boucle, Cycle, Cellule As Integer

Compteur = 1
Nombre = 33
Cellule = 1

Boucle = InputBox("Combien de repetition de 20 fois le même chiffre ?")

Range("A" & Compteur).Select

For Cycle = 1 To Boucle
For Compteur = 1 To 20
Range("a" & Cellule).Value = Nombre
Cellule = Cellule + 1
Next Compteur
Nombre = Nombre + 33
Next Cycle
End Sub

Voila tu adaptes à tes besoins et ca marche !!

A+

Creepy

Bonsoir,

Avec formule
Ton nombre de départ dans une cellule appelée "depart"
Si tu veux ton "+1" à la ligne 21, puis 41
=depart+ENT(MOD((LIGNE()-1)/20;20))
Si tu veux ton "+1" à la ligne 22, puis 42
=depart+ENT(MOD((LIGNE()-2)/20;20))
Si tu veux ton "+1" à la ligne 23, puis 43
=depart+ENT(MOD((LIGNE()-3)/20;20))

Ou bien tu démarres n'importe où, admettons en C13
=depart+ENT(MOD((LIGNE()-LIGNE(C$12))/20;20))

Salut Renaud, Creepy et Monique,

Autre solution :
En A1 tu tapes un chiffre quelconque.
En A2 tu tapes la formule suivante :

=SI(NB.SI(A$1:A1;A1)<20;A1;A1+1)
formule que tu tires vers le bas.

Ândré.

Super merci beaucoup j'avais à le faire dans les 600 fois !!!
Mreci bonne journée à vous ;-)

Renaud