XL 2010 [VBA] problème sélection de zone

[F22Raptor]

Hello
Sur le fichier joint, j'ai deux macros qui doivent faire la même chose.
Sur la méthode "bouton MARCHE", je sélectionne la colonne du milieu de mon petit tableau, et je fais une boucle qui passe par chaque cellule pour en afficher l'adresse.
Ca marche.

Mais je voulais le faire en nommant la plage, et ma boucle faisant un FOR EACH RANGE IN PLAGE
Et là, ça bugge ! (bouton "MARCHE PAS")
Curieusement, cela renvoie l'adresse, non pas de chaque cellule de la plage, mais celle de la plage elle-même.

Ai je un pb dans ma désignation Set Plage = Range("A1").CurrentRegion.Columns(2) ??

Merci !

 

[mutzik]

bonjour,

curieux
en voici un autre qui fct aussi

Option Explicit
    Dim Rge
    Dim Plage
    Dim txt

Sub tata()
    Rge = Range("A1").CurrentRegion.Columns(2).Address
    For Each Plage In Range(Rge)
            txt = txt & Plage.Address & vbLf
    Next
    MsgBox txt
       
End Sub

 

[F22Raptor]

Merci Mutzik.
Bizarre tout de même cette désignation qui ne marche pas !

 

[Dranreb]

Ai je un pb dans ma désignation Set Plage = Range("A1").CurrentRegion.Columns(2) ??

Le problème c'est qu'elle renvoie une colonne. Ajoutez .Cells derrière pour la transformer en une plage de cellules.

 

[F22Raptor]

Yessss ! Merci Dran