Numerotion

Bonjour, je cherche le moyen de créer une numérotation en VBA sous excel de 1 a 80 12 fois de suite

Je n'arrive pas à transformer les boucles.

1

2

79

80

1

2

79

80

1

2

79

80

Merci de votre aide

Salut Bardo,

• tu tapes 1 en [A1] ;
• formule en [A2]

=SI(ET(A1<80;A1>0);A1+1;SI(LIGNE(A1)<960;1;""))

- tu tires comme un grand vers le bas et la numérotation s'arrêtera à la ligne 960 ( 80 * 12 ).

Joyeux Noël!

A+

Bonjour,

k=1
For j=1 to 12
  For i = 1 to 80
    Cells(1,k)=i
    k = k + 1
  Next i
Next j

Joyeux Noël !

Salut Bardo,

Salut Oxydum,

et en VBA...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Application.ScreenUpdating = False
For x = 1 To 960
    Cells(x, 1) = IIf(x Mod 80 = 0, 80, x Mod 80)
Next
Application.ScreenUpdating = True
'
End Sub

A+

Excellent , même après effacement les numéros réapparaissent.

Merci