Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Do...Loop, instruction

office 365 dev account|Dernière mise à jour: 04/10/2017
|
1 Contributeur

Répète un bloc d' instructions tant qu'une condition est True ou jusqu'à ce qu'elle devienne True.

Syntaxe

Do [{ While |Until } condition ]

[ statements ]

[ Exit Do ]

[ statements ]

Loop

Vous pouvez aussi utiliser cette syntaxe :

Do

[ statements ]

[ Exit Do ]

[ statements ]

Loop [{ While |Until } condition ]

La syntaxe de l'instruction Do Loop comprend les éléments suivants :

ÉlémentDescription
conditionFacultatif. Expression numérique ou expression de chaîne qui est True ou False. Si condition est Null, condition est traitée comme False.
statementsUne ou plusieurs instructions répétées tant que la condition est True, ou jusqu'à ce qu'elle le soit.

Remarque

N'importe quel nombre d'instructions Exit Do peut être placé n'importe où dans la Do…Loop comme moyen alternatif de quitter une Do…Loop. Exit Do est souvent utilisé lors de l'évaluation d'une condition, par exemple, If…Then, auquel cas l'instruction Exit Do transfère le contrôle à l'instruction qui suit immédiatement Loop.

Lorsqu'elle est utilisée au sein d'instructions Do…Loop imbriquées, l'instruction Exit Do transfère le contrôle à la boucle qui est imbriquée un niveau au-dessus de la boucle où Exit Do se produit.

Exemple

Cet exemple montre comment les instructions Do...Loop peuvent être utilisées. L'instruction Do...Loop intérieure s'exécute en boucle 10 fois, définit la valeur de l'indicateur à False, et quitte prématurément à l'aide de l'instruction Exit Do. La boucle extérieure quitte immédiatement après la vérification de la valeur de l'indicateur.

Dim Check, Counter
Check = True: Counter = 0 ' Initialize variables.
Do ' Outer loop.
 Do While Counter < 20 ' Inner loop.
 Counter = Counter + 1 ' Increment Counter.
 If Counter = 10 Then ' If condition is True.
 Check = False ' Set value of flag to False.
 Exit Do ' Exit inner loop.
 End If
 LoopLoop Until Check = False ' Exit outer loop immediately.
© 2018 Microsoft