Contenu

# Instruction Do...Loop

Répète l'instruction entre Do et l'instruction Loop alors que la condition est True ou jusqu'à ce que la condition devienne True.

### Syntaxe :

      Do {While | Until} condition = True
      ' Do While: le bloc d'instruction est répété tant que la condition est vraie
      ' Do Until: le bloc d'instruction est répété tant que la condition est fausse
         statements
         [Exit Do]
         statements
      Loop

      Do
         statements
         [Exit Do]
         statements
      ' Loop While: le bloc d'instruction est répété tant que la condition est vraie
      ' Loop Until: le bloc d'instruction est répété jusqu'à ce que la condition soit vraie
      Loop {While | Until} condition = True

### Paramètres :

L'instruction Do ... Loop exécute une boucle tant que, ou jusqu'à ce qu'une certaine condition soit True. La condition de sortie de la boucle doit être saisie après l'instruction Do ou Loop. Les exemples ci-dessus sont des combinaisons correctes.

condition: une comparaison, expression numérique ou basique, qui donne la valeur True ou False.

statements: instructions que vous voulez répéter alors ou jusqu'à ce qu'une condition soit True.

Servez-vous de l'instruction Exit Do pour mettre fin à la boucle sans condition. Vous pouvez ajouter cette instruction en n'importe quel point d'une instruction Do...Loop. Vous pouvez également définir une condition de sortie à l'aide de la structure If...Then, comme suit :

      Do...
         statements
         If condition = True Then Exit Do
         statements
      Loop...

### Exemple :

    Sub ExampleDoLoop
        Dim sFile As String
        Dim sPath As String
        sPath = "c:\"
        sFile = Dir$( sPath ,22)
        If sFile <> "" Then
            Do
                MsgBox sFile
                sFile = Dir$
            Loop Until sFile = ""
        End If
    End Sub

Rubriques connexes

Instructions For, Select Case ou While

Fonctions Iif ou Switch

Aidez-nous !