Page 38 - DCG - Excel - 2025
P. 38

   FICHE Excel n°28 : DO LOOP en VBA




           Capsule vidéo







           1. Le concept


        La structure DO...LOOP permet de répéter une action jusqu’à ce qu’une condition soit remplie. Elle est
        utilisée quand on ne connaît pas le nombre exact de répétitions à l’avance.

           2. Syntaxes principales


        Do While (condition)
            instructions
        Loop

        Do
            instructions
        Loop Until (condition)

           3. Exemple expliqué


        i = 1
        Do While Cells(i, 1).Value <> ""
            Cells(i, 2).Value = Cells(i, 1).Value * 2
            i = i + 1
        Loop
        → Double toutes les valeurs de la colonne A tant qu’il y a du contenu

           4. Mini exercice


        Créez une macro qui lit les cellules de la colonne A jusqu’à une cellule vide, et inscrit "OK" dans la colonne B
        quand la cellule vide est trouvée.

           5. Exercice d’application


            •  Ouvrir un classeur vierge et le renommer TPLoop.xlsm
            •  Remplir la colonne C de quelques nombres.
            •  Écrire une macro qui :
               •  Parcourt les cellules ligne par ligne dans la colonne C
               •  Tant que la valeur est < 100, elle colore la cellule
               •  Sort de la boucle si une cellule contient 0 ou est vide
            •  Afin d’enrichir votre feuille, placez un bouton sur la feuille qui déclenchera l’appel de la macro.





                                                           36
   33   34   35   36   37   38   39   40   41   42   43