VBA Exit For – Quitter une Boucle For

En VBA, vous pouvez quitter une Boucle For à l’aide de la commande Exit For.

Exit For

Lorsque l’exécution du code arrive à Exit For, il quitte la boucle For et continue avec la première ligne après la boucle. Si vous voulez apprendre comment sortir d’une boucle Do, cliquez sur ce lien : VBA Exit Loop

Sortir d’une Boucle For Lorsqu’une Condition est Remplie

Vous allez voir dans l’exemple comment sortir d’une boucle For lorsqu’une certaine condition est remplie. Nous allons boucler et incrémenter la valeur de la variable i de 1 à chaque itération. Lorsque la valeur atteint 5, nous souhaitons sortir de la boucle et renvoyer une boîte de message. Voici le code :

Dim i As Integer

   For i = 1 To 10  
        If i = 5 Then
            Exit For
        End If
    Next i

MsgBox "La valeur est " & i

Tout d’abord, nous entrons dans la boucle For si la valeur de i est inférieure à 10 :

For i = 1 To 10

Next i

Ensuite, 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 :

If i = 5 Then

    Exit For

End If

Si la condition n’est pas remplie, l’instruction suivante augmente i de 1 et entre à nouveau dans la boucle For :

Next i

La première ligne du code qui sera exécutée après la sortie de la boucle For est la boîte de message avec la valeur de i :

MsgBox "La valeur est " & i

Si vous exécutez ce code en mode débogage, vous verrez qu’il va parcourir la boucle 5 fois. A la^5ème itération, la valeur de la variable i devient 5 et le code entre dans le corps If. Le corps de la boucle For est donc quitté. Après cela, la MsgBox s’affiche avec la valeur de i :

Image 1. Exemple d’utilisation de Exit For pour sortir d’une boucle

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!