question concernant la boucle For Next

[dindin]

Bonjour à tous

j'aurais une question à poser

j'ai voulu faire mon planning perso.
dans la colonne A , j'ai voulu afficher :
4 fois le mot aprés midi
ensuite 2 fois le mot repos et ensuite 4 fois le mot matin
comment puis je le faire en utilisant une boucle for next

j'ai ce code , mais il m'affiche ce que je voulais seulement sur 10 ligne . comment le faire répeter jusqu'à la ligne 365 (une année ).
voilà mon code :

Sub tournée()

For i = 5 To 6
For r = 5 To 6
For t = 7 To 10
Cells(i, 1).Value = "Aprés midi"

Cells(r, 1).Value = "Repos"

Cells(t, 1).Value = "Matin"

Next
Next
Next

End Sub

 

[jp14]

Re : question concernant la boucle For Next

Bonjour et bienvenue sur le forum

Un code à tester

Sub tournée()

For i = 5 To 365 + 5
For i1 = i To i + 3
    Cells(i1, 1).Value = "Aprés midi"
Next i1
For i1 = i1 To i1 + 1
    Cells(i1, 1).Value = "repos"
Next i1
For i1 = i1 To i1 + 3
    Cells(i1, 1).Value = "matin"
Next i1
i = i1 - 1
Next i
End Sub

JP

 

[dindin]

Re : question concernant la boucle For Next

bonjour
un trés grand merci à vous jp14
votre code fonctionne
malgrés que je n'ai pas bien compris le code
à mon avis
il y aune grande boucle de 5 à 365 et dedans il y a 3 petites boucles qui se répètent.

 

[jp14]

Re : question concernant la boucle For Next

Bonjour

Une autre manière de voir les boucles
For i = 5 To 365 + 5 Step 10
For i1 = i To i + 3
Cells(i1, 1).Value = "Aprés midi"
Next i1
For i1 = i1 To i1 + 1
Cells(i1, 1).Value = "repos"
Next i1
For i1 = i1 To i1 + 3
Cells(i1, 1).Value = "matin"
Next i1

Next i
End Sub


JP