VBA – Quitter une Boucle Do (Exit Loop)

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

Exit Do

Lorsque l’exécution du code arrive à Exit Do, le code quitte la boucle Do et continue à la première ligne après la boucle.

Si vous voulez apprendre comment sortir d’une boucle For, cliquez sur ce lien : VBA Exit For

Quitter une Boucle Lorsqu’une Condition est Remplie

Dans l’exemple ci-dessous, vous verrez comment sortir d’une boucle Do lorsqu’une certaine condition est remplie. Nous allons boucler et incrémenter la valeur de la variable i de 1 à chaque itération. Lorsqu’elle arrive à 6, nous souhaitons sortir de la boucle et renvoyer une boîte de message. Voici le code :

Dim i As Integer

Do While i < 10
        i = i + 1
      
        if i = 6 Then
            Exit Do
        End If
Loop

MsgBox "La valeur est " & i

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

Do While i < 10

Loop

Dans le corps de la boucle, nous incrémentons la valeur de i de 1 :

i = i + 1

Ensuite, nous vérifions si la valeur de i est égale à 6, en utilisant la commande If. Si la valeur est 6, nous sortons de la boucle Do et allons à la première ligne après la boucle :

If i = 6 Then
    Exit Do
End If

La première ligne de code qui sera exécutée après la sortie de la boucle Do 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 parcourt la boucle 6 fois. A la 6^ième itération, la valeur de la variable i devient 6 et le code entre dans le corps de l’instruction If. Maintenant le corps de la boucle Do est quitté. Ensuite, la MsgBox s’affiche avec la valeur de i :

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!