Partager via


Instruction Exit

Quitte un bloc de code Do…Loop, For…Next, Function, Sub ou Property.

Syntaxe

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

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

Statement Description
Exit Do Fournit un moyen de quitter un do... Loop instruction. Ne peut être utilisé que dans une instruction Do...Loop. Exit Do transfère le contrôle à l'instruction suivant l'instruction Loop. Lorsqu'elle est utilisée dans des instructions Do...Loop imbriquées, Exit Do transfère le contrôle à la boucle qui se trouve un niveau au-dessus de la boucle où se produit Exit Do.
Exit For Fournit un moyen de quitter une boucle For. Il ne peut être utilisé que dans un for... Suivant ou Pour chaque... Boucle suivante . Exit For transfère le contrôle à l'instruction suivant l'instruction Next. Lorsqu'elle est utilisée dans des boucles For imbriquées, Exit For transfère le contrôle à la boucle qui se trouve un niveau au-dessus de la boucle où Exit For se produit.
Exit Function Quitte immédiatement la procédureFunction dans laquelle elle apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction qui a appelé Function.
Exit Property Quitte immédiatement la procédure Property dans laquelle il apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction qui a appelé la procédure Property.
Exit Sub Quitte immédiatement la procédure Sub dans laquelle il apparaît. L'exécution se poursuit avec l'instruction suivant l'instruction qui a appelé la procédure Sub.

Remarques

Ne confondez pas les instructions Exit et les instructions End. Exit ne définit pas la fin d'une structure.

Exemple

Cet exemple utilise l'instruction Exit pour quitter une boucle For...Next, une instruction Do...Loop et une procédure Sub.

Sub ExitStatementDemo() 
Dim I, MyNum 
 Do ' Set up infinite loop. 
 For I = 1 To 1000 ' Loop 1000 times. 
 MyNum = Int(Rnd * 1000) ' Generate random numbers. 
 Select Case MyNum ' Evaluate random number. 
 Case 7: Exit For ' If 7, exit For...Next. 
 Case 29: Exit Do ' If 29, exit Do...Loop. 
 Case 54: Exit Sub ' If 54, exit Sub procedure. 
 End Select 
 Next I 
 Loop 
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.