VBA For Loop – Boucle dans une Plage de Cellules
In this Article
En VBA, vous pouvez parcourir en boucle une plage de cellules, en appliquant des actions à chaque cellule de la plage.
Si vous souhaitez tester une condition pour chaque cellule d’une plage à l’aide de VBA, la meilleure solution consiste à parcourir la plage en boucle et à tester chaque cellule. Voici deux exemples de code qui montrent comment effectuer une boucle dans une plage. Vous pouvez remplacer la valeur de la plage par celle de la plage que vous souhaitez parcourir en boucle.
Boucle dans une Plage de Cellules
Cet exemple permet parcourir en boucle une plage de cellules. L’instruction if teste la condition si la cellule contient le texte « TrouvezMoi » et affiche une boîte de message indiquant l’emplacement du texte s’il est trouvé.
Public Sub BouclePlage()
Dim c As Range
For Each c in Range("A1:A10")
If c.Value = "TrouvezMoi" Then
MsgBox "TrouvezMoi trouvé dans " & c.Adresse
End If
Next c
End Sub
Boucle sur une Colonne Entière
Dans cet exemple, vous parcourez en boucle toute la plage qui correspond à la colonne A.
Public Sub BoucleColonne()
Dim c As Range
For Each c In Range("A:A")
If c.Value = "TrouvezMoi" Then
MsgBox "TrouvezMoi trouvé dans " & c.Adresse
End If
Next c
End Sub
Boucle sur une Ligne Entière
L’exemple suivant boucle sur la ligne 1 en considérant la ligne entière comme une plage.
Public Sub BoucleLigne()
Dim c As Range
For Each c In Range("1:1")
If c.Value = "TrouvezMoi" Then
MsgBox "TrouvezMoi trouvé dans " & c.Adresse
End If
Next c
End Sub
La Programmation VBA Simplifiée
Ne cherchez plus de code VBA en ligne. Découvrez AutoMacro – un générateur de code VBA qui permet aux débutants de créer leurs propres procédures, avec des connaissances minimales en programmation et de nombreuses fonctions permettant à tous les utilisateurs de gagner du temps!
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!Learn More!