Affichage et activation ou non de barres personnelles Résolu/Fermé

Question

Bonjour,

J’ai deux commandes qui réalisent la création de barres de commandes à l’ouverture du programme donc dans le module "ThisWorkbook" :

Une barre spécifique à DEVIS et un à FACTURES

Ce que je cherche à faire :

Avoir les fonctions active de la barre concernée si je suis sur l’onglet DEVIS ou FACTURES, donc des fonctions en grisées inactives par exemple.

Voici le code que j'utilise aujourd'hui pour créer mes barres :

Sub DEVIS()Set myMenuBar = CommandBars.ActiveMenuBarSet Menu_fct_spe = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True, before:=10)Menu_fct_spe.Caption = "2-Fonctions devis"Set ctrl_Imp_Exp = Menu_fct_spe.Controls.Add(Type:=msoControlButton, ID:=1)With ctrl_Imp_Exp    .Caption = "Quitter"    .FaceId = 265    .Style = msoButtonIconAndCaption    .OnAction = "debut" End With'Set ctrl_Imp_Exp = Menu_fct_spe.Controls.Add(Type:=msoControlButton, ID:=1)With ctrl_Imp_Exp    .Caption = "Enregistrer"    .FaceId = 3    .Style = msoButtonIconAndCaption    .OnAction = "Enregistrer_D" End WithSet myMnuBar = NothingSet Menu_fct_spe = NothingSet ctrl_import = NothingSet ctrl_Export = NothingSet ctrl_Cbb = NothingEnd Sub

Et 

Sub FACTURES()Set myMenuBar = CommandBars.ActiveMenuBarSet Menu_fct_spe = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True, before:=10)Menu_fct_spe.Caption = "4-Fonctions factures"Set ctrl_Imp_Exp = Menu_fct_spe.Controls.Add(Type:=msoControlButton, ID:=1)With ctrl_Imp_Exp    .Caption = "Quitter"    .FaceId = 265    .Style = msoButtonIconAndCaption    .OnAction = "debut" End With'Set ctrl_Imp_Exp = Menu_fct_spe.Controls.Add(Type:=msoControlButton, ID:=1)With ctrl_Imp_Exp    .Caption = "Enregistrer"    .FaceId = 283    .Style = msoButtonIconAndCaption    .OnAction = "Enregistrer_F" End With

Comment faut-il pratiquer pour mettre en place cette fonctionnalité ?

Merci d’avance pour votre aide.

Cordialement

cs_Le Pivert · Answer

Bonjour,

Voir ceci, a adapter:

 https://support.microsoft.com/fr-fr/help/830502#bookmark-12

Option Explicit
'https://support.microsoft.com/fr-fr/kb/830502#bookmark-11
Private Sub CommandButton1_Click()
Menu_Create
End Sub
Private Sub CommandButton2_Click()
Menu_Disable
End Sub
Sub Menu_Disable()
CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub
Sub Menu_Create()
Dim myMnu As Object
   Set myMnu = CommandBars("Worksheet menu bar").Controls. _
      Add(Type:=msoControlPopup, before:=3)
   With myMnu
   ' The "&" denotes a shortcut key assignment (Alt+M in this case).
      .Caption = "New &Menu"
   End With
End Sub

cs_Le Pivert · Answer

Voilà un exemple d'après tes anciens post:

http://www.cjoint.com/c/FEduwlTkNXQ 

Regarde les codes mis dans les modules des feuilles Devis et Factures

cs_Le Pivert · Answer

Ton code provient de ce lien. Dans ce lien, il est indiqué comment supprimer le menu.
donc il te suffit de faire une petite adaption

https://codes-sources.commentcamarche.net/faq/913-creation-de-menus-sous-excel-word-et-powerpoint
 
Voici un exemple, je te laisse faire le reste:
à mettre dans la feuille Facture:

Option Explicit
Private Sub Worksheet_Activate()
 CommandBars.ActiveMenuBar.Controls("2-Fonctions devis").Controls("Quitter").Enabled = False
End Sub

si tu suis l'exemple que je t'ai posté, cela devrait être un jeu d'enfant

Bonne continuation

Affichage et activation ou non de barres personnelles

3 réponses

Discussions similaires