Vous pourriez vous retrouver dans une situation où vous souhaitez utiliser la boucle Do Until dans Excel VBA. Le code placé entre Do Until et Loop sera répété jusqu’à ce que la partie après Do Until soit vraie.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

Sub MonExemple()

Dim i As Integer

i = 1

  Do Until i > 6

    Cells(i, 1).Value = 16

    i = i + 1

  Loop

End Sub

Résultat lorsque vous cliquez sur le bouton de commande sur la feuille:

Explication: jusqu’à ce que i soit supérieur à 6, Excel VBA place la valeur 16 dans la cellule à l’intersection de la ligne i et de la colonne 1 et incrémente i de 1. Par conséquent, la valeur 16 sera placée six fois dans la colonne A (pas sept car Excel VBA s’arrête lorsque i est égal à 7).