Ednour
Messages postés7Date d'inscriptiondimanche 22 mars 2009StatutMembreDernière intervention18 juin 2010
-
17 juin 2010 à 14:26
Ednour
Messages postés7Date d'inscriptiondimanche 22 mars 2009StatutMembreDernière intervention18 juin 2010
-
18 juin 2010 à 09:26
'Bonjour,
'Le menu perso en VBA fonctionne bien : 4 boutons avec sous-menus.
'Voici le code du premier bouton :
Sub Aj_menu_perso()
Dim Feuille As Worksheet
Dim Cbar As CommandBar, Cbut As CommandBarButton
Dim Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup, Cpop3 As CommandBarPopup, Cpop4 As CommandBarPopup
Dim x As Byte
Set Cpop1 = Cbar.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Fichiers"
.Tag = "sm1"
End With
Set Cbut = Cpop1.Controls.Add(msoControlButton)
With Cbut
.Style = msoButtonIconAndCaption
.FaceId = 1016
.Caption = "Accueil"
.OnAction = "Ex_Menu"
End With
'Je souhaite ajouter 2 actions, je n'y arrive pas d'ou ce SOS :
'1) Le bouton "Accueil" doit être grisé si la feuille menu est active.
'J'ai essayé, sans succés :
ption = "&Nour"
With Cbut
If Feuille.Name "Menu" Then Application.CommandBars(1).Controls("Fichiers").Controls("Accueil").Enabled False
.Style = msoButtonIconAndCaption
.FaceId = 1016
.Caption = "Accueil"
.OnAction = "Ex_Menu"
End With
'2) .OnAction doit exécuter une des 12 procédures en fonction du nom
'de la feuille.
'J'ai essayé, sans succés :
If Feuille.Name "Menu" Then .OnAction "Ex_Menu"
If Feuille.Name "Janvier" Then .OnAction "Ex_Janv"
'............ etc.
Merci à tous.
Ednour
Messages postés7Date d'inscriptiondimanche 22 mars 2009StatutMembreDernière intervention18 juin 2010 18 juin 2010 à 09:26
'Bonjour,
'Mon problème est le suivant:
'Je souhaite ajouter 2 actions au menu, je n'y arrive pas d'ou ce SOS :
'1) Griser le bouton "Accueil" lorsque la feuille menu est active.
'J'ai essayé, sans succés :
If Feuille.Name "Menu" Then Application.CommandBars(1).Controls("Fichiers").Controls("Accueil").Enabled False
.Style = msoButtonIconAndCaption
.FaceId = 1016
.Caption = "Accueil"
.OnAction = "Ex_Menu"
End With
'2) Faire en sorte que .OnAction exécute une des 12 procédures en fonction du nom
'de la feuille.
'J'ai essayé, sans succés :
If Feuille.Name "Menu" Then .OnAction "Ex_Menu"
If Feuille.Name "Janvier" Then .OnAction "Ex_Janv"
'............ etc.
'J'epère avoir bien préciser ma question.
'Merci