Easy-Micro


ESPACEMEMBRE Structures de contrôles VBA
For 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


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Lundi 25 mars 2019 - Semaine 13 - Saint Humbert (Demain: Sainte Larissa)
Aujourd'hui, c'est l'anniversaire de Marcia Cross (1962-57 ans), comédienne américaine (rôle de Bree Van de Kamp dans Desperate Housewives). Autre 25 mars: 1918 : décès à Paris du compositeur français Claude Debussy. 1984 : Alain Prost gagne le grand prix de Formule 1 du Brésil.
Haut de page Easy-Micro