Exemple d’utilisation de la boucle Do Until et Loop dans Excel VBA

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).

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x