Structures de contrôles VBAFor Each
Boucle For Each
La boucle For Each... In... Next permet de répéter un bloc d'instructions pour chaque objet d'une collection ou pour chaque élément d'un tableau.
Dans l'exemple suivant, La 1ere boucle remplit un tableau et une plage depuis ce tableau, puis la 2ème lit et sélectionne chaque cellule de la plage de cellules :
Sub BoucleForEach()
Dim Tableau(4) As String
Dim N
Dim Compteur As Byte
Dim MaCel As Range
For Each N In Tableau
Compteur = Compteur + 1
N = "valeur n°" & Compteur
Range("A" & Compteur) = N
Next
For Each MaCel In Range("A1:A" & Compteur)
MaCel.Select
MsgBox MaCel
Next
End Sub
Dim Tableau(4) As String
Dim N
Dim Compteur As Byte
Dim MaCel As Range
For Each N In Tableau
Compteur = Compteur + 1
N = "valeur n°" & Compteur
Range("A" & Compteur) = N
Next
For Each MaCel In Range("A1:A" & Compteur)
MaCel.Select
MsgBox MaCel
Next
End Sub
