Discussion :

[lucazzo]

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 :

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

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..!!

[edelweisseric]

Bonjour à tous
Bonjour lucazzo

Avec ceci, si j'ai bien compris :

Code :

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

ActiveSheet.Shapes().SelectAll

Eric

[ypicot]

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

Code :

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

1
2
3
4
Dim CurrShape As Shape
For Each CurrShape In ActiveSheet.Shapes
    MsgBox CurrShape .Name
Next

Yvan