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 ]
Jeudi 17 janvier 2019 - Semaine 03 - Sainte Roseline (Demain: Sainte Prisca)
Aujourd'hui, c'est l'anniversaire de Françoise Hardy (1944-75 ans), chanteuse française (1962: Tous les garçons et les filles) et de Dalida (1933-1987), chanteuse et actrice française. Autre 17 janvier: 1706 - Naissance de Benjamin Franklin (mort le 17 avril 1790).
Haut de page Easy-Micro