Discussion :

[Dazdh]

Bonjour,

Je suis debutant en VB sous Excel, et je cherche a parcourir plusieurs lignes (oui c'est tout simple...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim Plage As Range, Cellules As Range
 
    Set Plage = Range("A1:C10")
 
    For Each Cellules In Plage
        XXX
    Next Cellule

Dans le code ci-dessus, comment acceder, grace a l'objet Cellule, a chaque cellule de la ligne selectionnee? (car si je fais Cellule.Cells(PPP), je dois remplacer PPP par une numero de colonne et de ligne, ce qui est illogique dans ce cas vu qu'on est sur une seule ligne).

Oui ma question est un peu simpliste pour les experts en VB, mais malgre mes recherches sur Internet, je n'ai pas trouve de reponse claire a ca.

Merci,

Dazdh

[ESVBA]

bonjour,

une boucle "For Each ... Next" n'est pas une boucle "For ... Next" avec laquelle on boucle sur une variable compteur.

La boucle "For Each ... Next" décompose les élèments d'un objet.
Avec votre description, la variable "cellules" va prendre la valeur de chaque élèments de l'objet principal, ici la plage spécifiée "Range("A1:C10"). Donc "Cellules" va prendre les valeurs suivante :

Range("A1")
Range("B1")
...
Range("C10")

pour lesquelles on va utiliser une propriété de "Range()".

voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim Plage As Range, Cellules As Range
 
    Set Plage = Range("A1:C10")
 
    For Each Cellules In Plage
        MsgBox Cellules.Address & "contient " & Chr$(13) & Cellules.Value
    Next

[Dazdh]

Merci!