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