L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

For.......Each Next

4 mars 2014
Imprimer E-mail
Ces instructions permettent de répéter un bloc d'instructions pour chaque objet d'une collection ou pour chaque élément d'un tableau. La variable de la boucle est automatiquement affecté à l'objet ou à l'élément. 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

Vous pouvez sortir prématurément d'une boucle en utilisant Exit For.