Afficher / Masquer commande personnalisé

[zelly]

Bonjour, je viens de créer un nouveau menu dans ma barre de commandes (fichier, edition, affichage...), seulement je souhaiterai pouvoir afficher ou masquer ce nouveau menu seulement quand j'en ai besoin. J'ai fouillé un peu partout en vain ! pouriez vous me venir en aide ?
Merci par avance

 

[job75]

Re : Afficher / Masquer commande personnalisé

Bonjour zelly, bienvenue sur XLD,

Si le menu ajouté s'appelle "toto", pour le masquer :

CommandBars("Worksheet Menu Bar").Controls("toto").Visible = False

et pour l'afficher :

CommandBars("Worksheet Menu Bar").Controls("toto").Visible = True

A+

 

[zelly]

Re : Afficher / Masquer commande personnalisé

Merci pour votre réponse, seulement, cette macro n'a aucun effet sur ma barre de menu ! Auriez vous une petite idée pourquoi ?

 

[zelly]

Re : Afficher / Masquer commande personnalisé

Ah , si , je viens de comprendre ce que je faisais mal, MErci beaucoup de noueau.

 

[Staple1600]

Re : Afficher / Masquer commande personnalisé

Bonsoir le fil, (salute job75 😉 )


zelly
Pour masquer /démasquer en une seule macro

Tu peux utiliser cette syntaxe

Sub MasqueDemasque()
CommandBars("Worksheet Menu Bar").Controls("toto").Visible = _
Not CommandBars("Worksheet Menu Bar").Controls("toto").Visible
end sub