Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Afficher shapes dans une worsheet

  • Initiateur de la discussion Initiateur de la discussion Blafi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Blafi

XLDnaute Occasionnel
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 ?
 
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
 

Pièces jointes

Dernière édition:
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++
 
Re : Afficher shapes dans une worsheet

bonjour tous 🙂🙂

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

Code:
Dim Obj As Shape
  For Each Obj In ActiveSheet.Shapes
  If Obj.Type <> msoFormControl Then Obj.Visible = 0
  Next Obj
 
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 ++
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…