Discussion :

[Lecachi]

Bonjour,
Je désire augmenter dans ma boucle For la valeur finale du compteur.
Je constate que la valeur Fin du compteur augmente, mais le nombre de boucles effectuées reste à dix.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub TestCompteur()
    Fin = 10
    Range("A1").Select
    For i = 1 To Fin
        Cells(i, 1).Value = i & " " & Fin
        Fin = Fin + 1
        If Fin > 20 Then Exit For
    Next
End Sub

Merci de votre aide

[Marc-L]

Bonjour, bonjour !

Conformément aux règles du forum, merci de baliser le code via l'icône dédiée # !

Ensuite c'est juste une erreur de logique, la fin est non variable et donc figée lors de l'entrée de la boucle !

Mieux vaut utiliser alors une boucle Do Loop …


__________________________________________________________________________________________________
Tous unis, tous Charlie