Afficher shapes dans une worsheet

[Blafi]

Bonjour,

J'ai une feuille dans laquelle j'ai mis un rectangle contenant des boutons qui commandent des macros. Pour éviter que les utilisateurs se servent de ce rectangle, j'ai fait une petite macro qui cache ce rectangle comme ceci :
if activesheet.shapes("monrectangle").visible= true then activesheet.shapes("monrectangle").visible=false
end if
Ca marche très bien sauf que semble-t-il ma feuille a supprimé "monrectangle" et lui a donné un nom différend que je n'arrive pas à retrouver...

Ma question : comment rendre visibles toutes les shapes (dessin) d'une feuille, afin d'en retrouver le nom en les sélectionnant?

J'ai essayé avec une boucle du genre
for each rectang in activesheet.shapes
activesheet.shapes(rectang).visible = true
next

Mais ça ne marche pas....

Ma question : comment rendre visibles toutes les shapes (dessin) d'une feuille lorsqu'elles sont en visible=false ?

 

[phlaurent55]

Re : Afficher shapes dans une worsheet

Bonjour Blafi,

Ma question : comment rendre visibles toutes les shapes (dessin) d'une feuille lorsqu'elles sont en visible=false ?

voir fichier joint

à+
Philippe

 

[Blafi]

Re : Afficher shapes dans une worsheet

Merci phlaurent55 pour la réponse...

Seul pb pour moi, je ne sais pas combien de figure j'ai dans ma feuille. Je vais quand même essayer, peut-être avec un count sur les shapes ?

Y-a-t-il une autre solution ?

a++

 

[laetitia90]

Re : Afficher shapes dans une worsheet

bonjour tous

essai comme cela 0 pour pas visible .....1 pour visible

Dim Obj As Shape
  For Each Obj In ActiveSheet.Shapes
  If Obj.Type <> msoFormControl Then Obj.Visible = 0
  Next Obj

 

[laetitia90]

Re : Afficher shapes dans une worsheet

re


un exemple quand meme avec le fichier de l'ami Philippe

attention cache aussi les controls active x si present

 

[Blafi]

Re : Afficher shapes dans une worsheet

Bonsoir,

Merci à tous pour votre aide. Avec vos différents moyens, j'ai reussi à faire réaparaitre mon rectangle qui refusait de venir... Je suis très étonné car ma macro d'affichage utilisait le bon nom d'objet mais me sortait à chaque fois "nom inconnu" (en anglais et VBA naturellement).

Encore un mystère....

A ++