Discussion :

[Speed41]

Bonjour,

J'ai créé un menu avec la macro auto_open et je voudrais que quand je ferme ma feuille (auto_close) mon menu disparaisse et je n'y arrive pas

Merci de votre aide

Création du menu

Code :

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

1
2
3
4
5
6
7
8
9
10
Set myMenuBar = CommandBars.ActiveMenuBar
    Set newmenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
        Temporary:=True)
    newmenu.Caption = "Ouvre fiche"
    Set ctrl1 = newmenu.Controls _
        .Add(Type:=msoControlButton, ID:=1968)
    ctrl1.Caption = "Ouvre le dossier"
    ctrl1.TooltipText = "Ouvre le dossier de la fiche"
    ctrl1.Style = msoButtonCaption
    ctrl1.OnAction = "Ouvre_lien"

Nota : comment faire pour ajouter une ligne séparatrice ?

Merci

[Invité]

Bonjour ami blésois

As-tu lu ce tuto : http://fring.developpez.com/vba/excel/barremenu/

Je vois que tu n'as pas donné de nom à ton menu, ce serait plus simple en le nommant pour le supprimer (delete), non ?

Philippe

[Speed41]

J'ai piqué le code dans les examples donnés dans l'aide

Mais je suis d'accords avec toi

Je regarde ton Tuto

Merci

[JPierreM]

Bonsoir,

quand je ferme ma feuille (auto_close) mon menu disparaisse

Je serai plus pour un procédure événementielle sur la feuille du genre

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Activate()
    a = Application.CommandBars.ActiveMenuBar.Controls.Count
    Application.CommandBars.ActiveMenuBar.Controls(a).Visible = True
End Sub
 
Private Sub Worksheet_Deactivate()
    a = Application.CommandBars.ActiveMenuBar.Controls.Count
    Application.CommandBars.ActiveMenuBar.Controls(a).Visible = False
End Sub

En supposant que le controle soit placé en dernière position sur ta barre (ActiveMenuBar.Controls.Count)

Ce code serait à placer dans le module de la feuille concernée
On se contente de rendre le controle visible ou non

comment faire pour ajouter une ligne séparatrice ?

De mémoire je pense qu'il faille utiliser BeginGroup

Bon courage

[Speed41]

Super merci JPierreM, c'est exactement ce que je voulais

Code :

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

1
2
a = Application.CommandBars.ActiveMenuBar.Controls.Count
        Application.CommandBars.ActiveMenuBar.Controls(a).Delete

Code :

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

ctrl1.BeginGroup = True

Merci