Ouverture d'un object

Bonjour,

J'aimerais à travers un bouton ouvrir TOUS les objects qui se trouve sur ma feuille excel.
Je sais que pour ouvrir un object il faut faire :

Code:

---

ActiveSheet.Shapes("Object 1").Select

---

Mon seul soucis, c'est que je ne connais pas forcément le nom de l'object ("Object XXX") car ils peuvent varier..
Y a-t-il un moyen d'ouvrir ces objects sans forcément connaître leurs nom ??

Merci de votre aide..!!

Bonjour à tous
Bonjour lucazzo

Avec ceci, si j'ai bien compris :

Code:

---

ActiveSheet.Shapes().SelectAll

---

Eric

Tu peux passer par un foreach qui va parcourir la collection :

Code:

---

1 2 3 4

Dim CurrShape As Shape For Each CurrShape In ActiveSheet.Shapes MsgBox CurrShape .Name Next

---

Yvan