Griser des sous-menus

[edjo123]

Bonjour

J'ai créer un menu personnlaisé grâce à une macro. J'aimerais pouvoir griser quelques un des sous menus de ce menu de sorte à contraindre l'utilisateur à effectuer certaines étapes avant d'y avoir accès. Ces sous-menus grisés devraient alors redevenir "normaux" après ces étapes.

Quelqu'un a til une idée de comment faire ?

 

[jeanpierre]

Re : Griser des sous-menus

Bonjour edjo123,

"J'ai créer un menu personnlaisé grâce à une macro", laquelle ?

"J'aimerais pouvoir griser quelques un des sous menus de ce menu de sorte à contraindre l'utilisateur à effectuer certaines étapes avant d'y avoir accès", Lequels ?

Connais-tu bien VBA ? car il me semble que tu veux jouer avec le feu.... Même moi, ce genre de truc, je ne fais pas. Trop de risque suite à plantage ou à sortie intempestible, et autres....

A te lire.

Jean-Pierre

 

[edjo123]

Re : Griser des sous-menus

@ jean-pierre et masterdico

Voila le code utilisé pour créer mon menu


Sub CreatingToolBar()
Set mymenubar = CommandBars.ActiveMenuBar

Set monmenu = mymenubar.Controls.Add(Type:=msoControlPopup, temporary:=True)
monmenu.Caption = "STOCHASTIC SIMULATION TOOL"

'**************Creating sub-menu Khi-square **********************************
Set elementmenuder1 = monmenu.Controls.Add(Type:=msoControlPopup, ID:=1)
elementmenuder1.Caption = "Adequacy Binomial->Poisson"
Set element1 = elementmenuder1.Controls.Add(Type:=msoControlButton, ID:=1)
With element1
.Caption = "Adequacy for Males"
.OnAction = "TestMales"
End With
Set element2 = elementmenuder1.Controls.Add(Type:=msoControlButton, ID:=1)
With element2
.Caption = "Adequacy for Females"
.OnAction = "TestFemales"
End With

'**************Creating sub-menu portfolio**********************************

Set elementmenuder2 = monmenu.Controls.Add(Type:=msoControlPopup, ID:=1)
elementmenuder2.Caption = "Portfolio"
Set element3 = elementmenuder2.Controls.Add(Type:=msoControlButton, ID:=1)
With element3
.Caption = " Males Portfolio"
.OnAction = "MalesPortfolio"
End With
Set element4 = elementmenuder2.Controls.Add(Type:=msoControlButton, ID:=1)
With element4
.Caption = " Females Portfolio"
.OnAction = "FemalesPortfolio"
End With


'**************Creating sub-menu goals**********************************

Set elementmenuder3 = monmenu.Controls.Add(Type:=msoControlPopup, ID:=1)
elementmenuder3.Caption = "Goals"
Set element5 = elementmenuder3.Controls.Add(Type:=msoControlButton, ID:=1)
With element5
.Caption = "Goal for Option 1"
.OnAction = "GoalSeek1"
End With
Set element6 = elementmenuder3.Controls.Add(Type:=msoControlButton, ID:=1)
With element6
.Caption = "Goal for option 2"
.OnAction = "GoalSeek2"
End With
Set element7 = elementmenuder3.Controls.Add(Type:=msoControlButton, ID:=1)
With element7
.Caption = "Goal for option 3"
.OnAction = "GoalSeek3"
End With


''**************Creating others menu's elements*********************************
Set elementmenu1 = monmenu.Controls.Add(Type:=msoControlButton, ID:=1)
With elementmenu1
.Caption = "Ceding Company Files"
.OnAction = "Fichiercedante"
End With

Set elementmenu2 = monmenu.Controls.Add(Type:=msoControlButton, ID:=1)
With elementmenu2
.Caption = "Curves"
.OnAction = "DrawingCurves"
End With

Set elementmenu3 = monmenu.Controls.Add(Type:=msoControlButton, ID:=1)
With elementmenu3
.Caption = "Run Simulation"
.OnAction = "Simulate"
End With

Set elementmenu4 = monmenu.Controls.Add(Type:=msoControlButton, ID:=1)
With elementmenu4
.Caption = "Update"
.OnAction = "UpdateButton"
End With

End Sub

 

[edjo123]

Re : Griser des sous-menus

ce que j'aimerais faire c qu'au départ tous les sous-menus soient grisés sauf portfolio. Et une fois que l'utlisateur a rentré son portefeuille, que les autres-sous menus soient disponibles

merci

 

[jeanpierre]

Re : Griser des sous-menus

Re, masterdisco,

Sorti de son contexte, ton code ne me parles pas et je n'ai pas envie de le lire.

Peux-tu déposer un fichier explicite ?

Jean-Pierre