boucle

[Dennnisss]

Bonjour a tous

J'essaie de creer une boucle qui va copier les chiffres 31 a 35 a chaque 47 ligne d'intervalle

exemple a la ligne a1 31
a2 32
a3 33
a4 34
a5 35
a48 31
a49 32
a50 33
etc .........

ceci doit avoir une boucle de 120 fois

alors merci de votre aide

bonne soiree
dennnisss😉 😉

 

[Mytå]

Re : boucle

Salut Denis et le forum

Sub test()
Dim I As Byte
Dim J As Byte
For J = 1 To 120
  For I = 1 To 5
    Cells(I + J * 47 - 1, 1) = I + 30
  Next I
Next J
End Sub

Mytå

 

[Dennnisss]

Re : boucle

Salut Mytå


Merci de ton aide , j'ai fait ton test est c'est ok

Alors merci encore une fois

dennnisss😉 😉