Les boucles

Les boucles For Next

Lorsque vous savez déjà combien de fois vous souhaitez exécuter des instructions, la boucle For Next est tout indiquée.

La syntaxe générale d’une telle boucle est la suivante :

For Compteur=ValeurDebut To ValeurFin 
   Instructions 
Next Compteur 

Exemple 3 : syntaxe générale d’une boucle For Next

Voici un exemple de boucle For Next :

Dim i As Long 
For i = 1 To 10 
   MsgBox "C'est le jour de la Marmotte" 
Next i 

Exemple 4 : utilisation d’une boucle For Next

Les mots-clés For et Next lui donnent son nom d’usage.

Dans ce type de boucle un compteur est utilisé pour faire varier d’une valeur de départ jusqu’à une valeur d’arrivée.

Dans notre exemple précédent, notre compteur est la variable i, de type numérique entier, qui va varier de 1 à 10, et va donc prendre successivement les valeurs 1, 2, 3, 4, 5, 6, 7, 8, 9 et 10. Une fois la valeur d’arrivée atteinte, on dit qu’on « sort de la boucle », et le programme poursuit l’exécution des lignes qui suivront après la boucle.

Ce qui est pratique avec ce type de boucles, c’est que vous pouvez utiliser la valeur de la variable i à l’intérieur de la boucle pour votre traitement.

Ainsi vous pouvez afficher les valeurs de 1 à 5 à l’utilisateur avec ces 3 lignes :

For i = 1 To 5 
   MsgBox i 
Next i 

Exemple 5 : autre utilisation d’une boucle For Next

Mais vous pouvez également utiliser cette variable pour lire les valeurs des cellules A1 à A5 par exemple, avec :

For i = 1 To 5 
   MsgBox Range("A" & i).Value 
Next i 

Exemple 6 : utilisation de la variable i dans une boucle For Next

Mais ce n’est pas tout, vous pouvez également indiquer avec quel pas votre programme avance pour aller de la valeur de début à la valeur d’arrivée. Par exemple, si vous souhaitez afficher les valeurs impaires de 1 à 9, vous irez de 2 en 2 (1, 3, 5, 7 et 9), avec le mot-clé Step, suivi du pas, comme ceci :

For i = 1 To 9 Step 2 
   MsgBox i 
Next i 

Exemple 7 : syntaxe d’une boucle avec un pas

Vous pouvez même « y aller à reculons », en allant par exemple de A10 à A1. Le mot-clé Step sera alors négatif, comme dans l’exemple suivant :

For i = 10 To 1 Step -1 
   MsgBox Range("A" & i).Value 
Next i 

Exemple 8 : syntaxe d’une...

Boucle infinie

Attention, il est fréquent que lorsque vous utilisez des boucles de type Do Loop ou While Wend, vous fassiez une mauvaise évaluation des critères d’entrée/sortie de boucle et vous tombiez dans une « boucle infinie », qui fera que votre application tournera indéfiniment (avec pour conséquence de geler à l’écran), ne vous laissant plus d’autre choix que de l’arrêter pour la redémarrer.

Voici un exemple de boucle infinie (la condition sera toujours fausse/False) :

Do Until False 
   Instructions 
Loop 

Exemple 19 : boucle infinie avec Do Until Loop

Pour arrêter le programme alors qu’il est en train de tourner, vous avez la possibilité d’utiliser simultanément les touches de votre clavier Ctrl et Pause. Il est également possible d’utiliser la touche Echap. La fenêtre suivante s’affichera :

Vous pouvez alors poursuivre le programme (Continuer), d’arrêter le programme (Fin), d’accéder au code (Débogage) ou encore d’accéder à l’aide en ligne de Microsoft.

Dépassement de capacité

Il peut arriver également que lorsque vous utilisez les boucles, la variable qui vous sert de compteur aille au-delà des limites...

Sortir d’une boucle For - Exit For

Pour sortir des boucles de type For Next ou de type For Each Next, la syntaxe de sortie anticipée se fera au moyen des mots-clés Exit For.

Par exemple, si vous parcourez les 50 premières lignes de la colonne A, pour vérifier que la valeur ENI est disponible :

Dim bENIEstPresent As Boolean 'sert à savoir si la valeur ENI est trouvée 
bENIEstPresent = False 'on initialise notre variable 
Dim i As Integer 
For i = 1 To 50 
   If Range("A" & i).Value = "ENI" Then 'Si la cellule contient ENI alors 
       bENIEstPresent = True 'on bascule la variable à Vrai/True ...

Boucles For Next