Les boucles en VBA : For Next, Step, Do While, Do Until, While Wend et For Each

For i = début To fin donne à la variable compteur i la valeur de début, exécute le bloc, puis Next i ajoute 1 et recommence tant que i ne dépasse pas la fin. Le nombre de tours est connu d’avance : fin − début + 1. Le compteur sert directement de numéro de ligne dans Cells(i, colonne). Déclarez-le en Long (ou Integer) et ne le modifiez jamais dans le bloc.

Par défaut le compteur augmente de 1. Step fixe un autre pas : Step 2 une ligne sur deux, Step 0.5 des demi-valeurs, Step -1 un compte à rebours. Avec un pas négatif, le début doit être supérieur à la fin. Le parcours à l’envers est indispensable pour supprimer des lignes : chaque suppression fait remonter les lignes du dessous, qu’une boucle descendante sauterait.

Quand on ne sait pas combien de tours faire, on répète tant qu’une condition est vraie : Do While condition … Loop. La condition est testée avant chaque tour ; si elle est fausse dès le départ, le bloc ne s’exécute jamais. C’est à vous de faire évoluer la condition dans le bloc (ici i = i + 1), sinon la boucle ne s’arrête pas.

La condition peut se placer après Do ou après Loop. Do … Loop While condition exécute le bloc au moins une fois, puis teste. C’est utile pour redemander une saisie tant qu’elle n’est pas valide : la question doit être posée avant d’être vérifiée. Sans aucune condition, Do … Loop tourne indéfiniment et ne se quitte que par Exit Do.

Do Until condition est l’inverse de Do While : la boucle tourne tant que la condition est fausse et s’arrête dès qu’elle devient vraie. Do Until Cells(i, 1).Value = "" équivaut à Do While Cells(i, 1).Value <> "" : choisissez la forme qui se lit le plus naturellement. Prévoyez toujours une condition de sortie de secours.

While condition … Wend est l’ancienne syntaxe, conservée pour la compatibilité. Elle fonctionne comme Do While … Loop, avec deux limites : pas de test en fin de boucle et pas d’instruction pour en sortir (il n’existe pas de Exit While). Vous la rencontrerez dans du code ancien ; pour du code neuf, utilisez Do … Loop.

For Each élément In collection parcourt tous les éléments d’une collection d’objets, sans compteur : chaque cellule d’une plage (For Each c In Range("B2:B7")), chaque feuille (For Each ws In Worksheets), chaque classeur ouvert. La variable se déclare avec le type de l’objet (Range, Worksheet). C’est la boucle la plus simple quand on veut traiter tout le monde.

Exit For (dans une boucle For ou For Each) et Exit Do (dans une boucle Do) quittent immédiatement la boucle : l’exécution reprend après Next ou Loop. C’est le cas typique d’une recherche : inutile de continuer une fois la valeur trouvée. Quand une boucle ne s’arrête plus (condition jamais atteinte, compteur oublié), Excel ne répond plus : appuyez sur Échap ou Ctrl + Pause pour interrompre la macro.