Excel VBA Do Until Loop
Bien que peu utilisé sur ce site, vous pourriez vous retrouver dans une situation où vous souhaitez utiliser le Faire jusqu'à boucle 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:
Dim i As Integer
i = 1
Do Until i > 6
Cells(i, 1).Value = 20
i = i + 1
Loop
i = 1
Do Until i > 6
Cells(i, 1).Value = 20
i = i + 1
Loop
Résultat lorsque vous cliquez sur le bouton de commande de la feuille:
Explication: jusqu’à ce que i soit supérieur à 6, Excel VBA place la valeur 20 dans la cellule située à l’intersection de la ligne i et de la colonne 1 et incrémente i de 1. La valeur 20 est ainsi placée dans la colonne A six fois (et non sept parce que Excel VBA s'arrête lorsque i est égal à 7).