VBA - Pour chaque boucle

UNE For Each loop est utilisé pour exécuter une instruction ou un groupe d'instructions pour chaque élément d'un tableau ou d'une collection.

Une boucle For Each est similaire à For Loop; cependant, la boucle est exécutée pour chaque élément d'un tableau ou d'un groupe. Par conséquent, le compteur de pas n'existera pas dans ce type de boucle. Il est principalement utilisé avec des tableaux ou utilisé dans le contexte des objets du système de fichiers afin de fonctionner de manière récursive.

Syntaxe

Voici la syntaxe d'un For Each boucle en VBA.

For Each element In Group
   [statement 1]
   [statement 2]
   ....
   [statement n]
   [Exit For]
   [statement 11]
   [statement 22]
Next

Exemple

Private Sub Constant_demo_Click()  
   'fruits is an array
   fruits = Array("apple", "orange", "cherries")
   Dim fruitnames As Variant
 
   'iterating using For each loop.
   For Each Item In fruits
      fruitnames = fruitnames & Item & Chr(10)
   Next
   
   MsgBox fruitnames
End Sub

Lorsque le code ci-dessus est exécuté, il imprime tous les noms de fruits avec un élément dans chaque ligne.

apple
orange
cherries