En VBA, vous pouvez quitter une boucle For en utilisant le Quitter pour commander.
1 | Quitter pour |
Lorsque l'exécution du code vient à Quitter pour, il quittera une boucle For et continuera avec la première ligne après la boucle.
Si vous voulez savoir comment quitter une boucle Do, cliquez sur ce lien : VBA Exit Loop
Quitter une boucle For lorsqu'une condition est remplie
Vous verrez sur l'exemple comment sortir d'une boucle For lorsqu'une certaine condition est remplie. Nous bouclerons et incrémenterons la valeur de la variable i de 1 à chaque itération. Quand il s'agit de 5, nous voulons quitter la boucle et renvoyer une boîte de message. Voici le code :
123456789 | Diminuer en tant qu'entierPour i = 1 à 10Si je = 5 AlorsQuitter pourFin siEnsuite jeMsgBox "La valeur est " & i |
Tout d'abord, nous entrons dans la boucle For si la valeur de i est inférieure à 10 :
123 | Pour i = 1 à 10Ensuite je |
Après cela, nous vérifions si la valeur de i est égale à 5, en utilisant la commande If. Si la valeur est 5, nous sortons de la boucle For et allons à la première ligne après la boucle :
12345 | Si je = 5 AlorsQuitter pourFin si |
Si la condition n'est pas remplie, l'instruction suivante augmente i de 1 et entre à nouveau dans la boucle For :
1 | Ensuite je |
La première ligne du code qui sera exécutée après avoir quitté la boucle For est la boîte de message avec la valeur i :
1 | MsgBox "La valeur est " & i |
Si vous exécutez ce code en mode débogage, vous verrez qu'il parcourra la boucle 5 fois. Dans le 5e itération, la valeur de la variable i devient 5 et le code entre dans le corps If. Maintenant, le corps de la boucle For est quitté. Après cela, les fenêtres contextuelles MsgBox avec la valeur i :
Image 1. Exemple de sortie de boucle For