Comment utiliser l’instruction Do…Loop dans VBA ?

L’instruction `Do…Loop` dans VBA (Visual Basic for Applications) est utilisée pour répéter un bloc de code tant qu’une condition est vérifiée. Elle peut être utilisée de deux manières principales : `Do While` et `Do Until`. Voici comment chacune peut être utilisée :

Do While Loop

Cette boucle continue à s’exécuter tant qu’une condition spécifiée est vraie.

Sub ExempleDoWhile()
    Dim i As Integer
    i = 1

    Do While i <= 10
        Debug.Print "Valeur de i : " & i
        i = i + 1
    Loop
End Sub

Dans cet exemple, le bloc de code s’exécute et imprime la valeur de `i` dans la fenêtre de débogage jusqu’à ce que `i` soit supérieur à 10.

Do Until Loop

Cette boucle s’exécute jusqu’à ce qu’une condition spécifiée devienne vraie.

Sub ExempleDoUntil()
    Dim i As Integer
    i = 1

    Do Until i > 10
        Debug.Print "Valeur de i : " & i
        i = i + 1
    Loop
End Sub

Dans cet exemple, le bloc de code s’exécute et imprime la valeur de `i` jusqu’à ce que `i` soit supérieur à 10.

Do Loop While and Do Loop Until

Il est également possible de vérifier la condition après l’exécution d’une première itération de la boucle, ce qui garantit que le bloc de code s’exécute au moins une fois.

Exemple avec Do…Loop While

Sub ExempleDoLoopWhile()
    Dim i As Integer
    i = 1

    Do
        Debug.Print "Valeur de i : " & i
        i = i + 1
    Loop While i <= 10
End Sub

Exemple avec Do…Loop Until

Sub ExempleDoLoopUntil()
    Dim i As Integer
    i = 1

    Do
        Debug.Print "Valeur de i : " & i
        i = i + 1
    Loop Until i > 10
End Sub

Ces deux dernières variantes garantissent une exécution initiale du bloc de code avant que la condition ne soit évaluée. Utilisez la variante qui convient le mieux à la logique de votre programme.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project