Petite question concernant les boucles

Bonjour,

Je vous joins un petit fichier très simple de ce qui m'arrive avec for x = .. to .. step .. quand celui ci devrait faire un petit saut tout les x lignes.

Le script est opérationel dans le fichier et montre bien le problème mais voici le code dans le module juste au cas ou :

Sub bouton()

Dim boucle1 As Integer

Dim boucle2 As Integer

For boucle1 = 1 To 20 Step 5

    Range("A" & boucle1) = "Action"

    For boucle2 = 2 To 5 ' normalement 1 TO 20 STEP ? ou une autre forme de boucle pour un saut de 1 toutes les 5 lignes.
        Range("A" & boucle2) = "Sous action"
    Next boucle2

Next boucle1

End Sub

Merci

Cordialement

Variable

Fichier ici ▼

Bonjour

A tester

Sub bouton()

Dim boucle1 As Integer

Dim boucle2 As Integer

For boucle1 = 1 To 20 Step 5

    Range("A" & boucle1) = "Action"

    For boucle2 = 1 To 4 ' normalement 1 TO 20 STEP ? ou une autre forme de boucle pour un saut de 1 toutes les 5 lignes.
    'For boucle2 = 2 To 5 ' normalement 1 TO 20 STEP ? ou une autre forme de boucle pour un saut de 1 toutes les 5 lignes.
       Range("A" & boucle1 + boucle2) = "Sous action"
       'Range("A" & boucle2) = "Sous action"
    Next boucle2

Next boucle1

End Sub

Bonjour Banzai64

Oui ca marche.

Sub bouton()

Dim boucle1 As Integer

Dim boucle2 As Integer

For boucle1 = 1 To 20 Step 5

    Range("A" & boucle1) = "Action"

    For boucle2 = 1 To 4
      Range("A" & boucle1 + boucle2) = "Sous action"

   Next boucle2

Next boucle1

End Sub

Je tente de comprendre, la boucle 2 ne saute qu'à l'addition avec la première boucle puis écrit sa suite et recommence tant que la boucle 1 n'est pas finie.

boucle 1 : A1 = action

Boucle 2 + boucle 1 : A1+1 va en A2 = sous action

Boucle 2 : A3 = sous action

Boucle 2 : A4 = sous action

Boucle 2 : A5 = sous action

boucle 1 : A6 = action

Boucle 2 + boucle 1 : A6+1 va en A7 = sous action

Boucle 2 : A8 = sous action

C'est cool

Merci Banzai64