Comment utiliser l’instruction While…Wend dans VBA ?

En VBA (Visual Basic for Applications), l’instruction `While…Wend` est utilisée pour créer une boucle qui s’exécute tant qu’une condition spécifique est vraie. Cependant, il est important de noter que `While…Wend` est considéré comme obsolète et moins flexible que l’instruction `Do While…Loop`, qui est généralement recommandée pour les nouvelles macros ou les projets VBA.

Voici un exemple de base illustrant comment utiliser `While…Wend` :

Sub ExempleWhileWend()
    Dim compteur As Integer
    compteur = 1
    
    ' La boucle s'exécute tant que compteur est inférieur ou égal à 5
    While compteur <= 5
        ' Affiche la valeur actuelle de compteur dans la fenêtre d'exécution
        Debug.Print "Compteur : " & compteur
        
        ' Incrémente le compteur
        compteur = compteur + 1
    Wend
End Sub

Dans cet exemple :

La boucle commence en vérifiant si la condition `compteur <= 5` est vraie.
Si c’est le cas, le bloc de code à l’intérieur de la boucle s’exécute.
La valeur de `compteur` est affichée dans la fenêtre d’exécution avec `Debug.Print`.
`compteur` est ensuite incrémenté.
La condition est réévaluée, et si elle est toujours vraie, la boucle continue.

Cependant, il est souvent préférable d’utiliser `Do While…Loop`, car il offre une meilleure lisibilité et flexibilité, par exemple :

Sub ExempleDoWhile()
    Dim compteur As Integer
    compteur = 1
    
    Do While compteur <= 5
        Debug.Print "Compteur : " & compteur
        compteur = compteur + 1
    Loop
End Sub

Avec `Do While…Loop`, vous avez plus de contrôle, par exemple placer la condition à la fin de la boucle si nécessaire, ce qui n’est pas possible avec `While…Wend`.

facebooklinkedin