For Each
POUR ELEMENT DANS LISTE
1
For Each element In liste
2
Action utilisant element
3
Next element
La fonction réalise l'action autant de fois qu'il y a d'objet dans la liste.
A chaque tour la variable element prend le contenu de l'objet suivant de la liste.
Exemple : Ecrit 10 fois
Afficher le contenu d'un tableau
1
Sub affichage(tableau)
2
Dim texte As string
3
Dim element As variant
4
For Each element In tableau
5
texte = texte & element & chr(13)
6
Next element
7
MsgBox (texte)
8
End Sub
Ne connaissant pas le contenu du tableau, element est de type variant.