Module
Contenu
Index 🔎︎

# Instruction While...Wend

Lorsqu'un programme rencontre une instruction While, il vérifie la condition. Si celle-ci n'est pas remplie (False), l'exécution du programme se poursuit à partir des instructions figurant après l'instruction Wend. Si elle est remplie (True), la boucle est exécutée jusqu'à ce que le programme trouve Wend et revienne ensuite à l'instruction While. Si la condition est encore remplie (True), la boucle est de nouveau exécutée.

Contrairement à Do...Loop, une boucle While...Wend ne peut pas être annulée par l'instruction Exit. Ne quittez jamais une boucle While...Wend avec l'instruction GoTo, car cela risque d'entraîner une erreur d'exécution.

L'utilisation de Do...Loop, plus flexible, est recommandée.

## Syntaxe :

    While Condition [Instruction] Wend

## Exemple :

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="Ceci est un texte court."

        iRun = 1

        while iRun < Len(sText)

            if Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

            iRun = iRun + 1

        Wend

        MsgBox sText,0,"Texte codé"

    End Sub