Exit, instruction

Quitte un bloc du code Do...Loop, For...Next, Function ou Sub.

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

La syntaxe de l'instruction Exit prend les formes suivantes :

Instruction	Description
Exit Do	Fournit un moyen de quitter une instruction Do...Loop. Elle ne peut être utilisée qu'à l'intérieur d'une instruction Do...Loop. Exit Do transfère le contrôle à l'instruction suivant l'instruction Loop. Quand elle est utilisée dans des instructions Do...Loop imbriquées, l'instruction Exit Do transfère le contrôle à la boucle située au niveau d'imbrication supérieur à celui de la boucle dans laquelle elle se produit.
Exit For	Fournit un moyen de quitter une boucle For. Elle ne peut être utilisée que dans une boucle For...Next ou For Each...Next. Exit For transfère le contrôle à l'instruction suivant l'instruction Next. Quand elle est utilisée dans des boucles For imbriquées, l'instruction Exit For transfère le contrôle à la boucle située au niveau d'imbrication supérieur à celui de la boucle dans laquelle elle se produit.
Exit Function	Quitte immédiatement la procédure Function dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Function.
Exit Property	Quitte immédiatement la procédure Property dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Property.
Exit Sub	Quitte immédiatement la procédure Sub dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction ayant appelé la procédure Sub.

L'exemple ci-dessous illustre l'utilisation de l'instruction Exit :

Sub RandomLoop
   Dim I, MyNum
   Do   ' Boucle infinie.
      For I = 1 To 1000   ' Boucler 1000 fois.
         MyNum = Int(Rnd * 100)   ' Générer des nombres aléatoires.
         Select Case MyNum   ' Évaluer le nombre aléatoire.
            Case 17: MsgBox "Case 17"
               Exit For   ' Si 17, sortir de For...Next.
            Case 29: MsgBox "Case 29"
               Exit Do   ' Si 29, sortir de Do...Loop.
            Case 54: MsgBox "Case 54"
               Exit Sub   ' Si 54, sortir de la procédure Sub.
            End Select
      Next
   Loop
End Sub

Version requise

Version 1

Voir aussi

Do...Loop, instruction | For Each...Next, instruction | For...Next, instruction | Function, instruction | Sub, instruction