Discussion :

[zoumzoum59]

Bonjour à tous

Est il possible de récupérer l'adresse de le cellule qui est en cours de lecture par la boucle for each?

Du genre du code suivant, mais evidemment il ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
 
Set Plage = Range("B3:G8")
For Each Cel In Plage
AdresCel = Cel.Adress
...
 
next

Si quelqu'un peut m'aider.

Merci d'avance

[Chewi]

Bonjour zoumzoum59,

Dis moi si c'est bien ceci que tu souhaite:
(Le MsgBox ne servant qu'à confirmer)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Recup()
Dim plage As Range
Dim AdresCel As String
Dim Cel As Range
Set plage = Range("B3:G8")
For Each Cel In plage
AdresCel = Cel.Address
MsgBox AdresCel
Next
End Sub

B à T

[zoumzoum59]

Tout à fait c'est exactement ça.

J'ai du me mélanger les pinceaux dans mes variable, je ne vois que cela pour donner une raison au fait que mon code ne fonctionnait pas.

Encore merci Chewi

[Chewi]

Peut-être ton ".Adress" avec un seul "d"

Bonne soirée.

[zoumzoum59]

Exactement je suis passé à coté.

Merci pour la précision.