Bien que pas très souvent utilisé sur ce site, vous pourriez vous retrouver dans une situation où vous voulez utiliser la boucle Do Until dans Excel VBA. Le code placé entre Do Until et la boucle sera répétée jusqu’à ce que la partie après Do Until est vrai.

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

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Lorsque vous cliquez sur le bouton de commande sur la feuille:

Excel VBA Do Until Loop

Explication: jusqu’à ce que i est supérieur à 6, Excel VBA place la valeur 20 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 20 sera placée dans la colonne A six fois (non sept parce que Excel VBA arrête quand i est égal à 7).