Griser un sous menu suivant un choix de valeur

[samexport]

Bonsoir,
J'ai ajouté un menu en VBA et cela fonctionne parfaitement. Mais je souhaiterais mettre un test sur une valeur qui influe sur l'affichage de sous menu 2 par exemple et donc qu'il soit visible ou pas.
Merci d'avance.

Sub MakeMenu()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl,


On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = "API"
End With

Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = "Création Fichier"
.Style = msoButtonIconAndCaption

End With

Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = "Génération"
.FaceId = 455
.Style = msoButtonIconAndCaption
.OnAction = "Generate"
End With


Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.BeginGroup = True
.Caption = "Type de Document"
.Style = msoButtonIconAndCaption
.OnAction = "Doc_Type"
End With

 

[porcinet82]

Re : Griser un sous menu suivant un choix de valeur

Salut,

Comme tu ne donnes pas trop, d'info, je vais seulement te donner des bout de syntaxe et tu adapteras selon tes besoins.
Donc pour désactiver un bouton sans le cacher, tu peux utiliser dans tes With un .Enabled = False
Si maintenant tu veux faire ce Enabled selon une valeur, il te suffit de le mettre dans un If :

If range("a1").value="toto" then 
.Enabled = True
Else
.Enabled = False
End if

Pour ce qui est d'etre invisible, il me semble qu'il faut mettre .Visible = True

@+

 

[samexport]

Re : Griser un sous menu suivant un choix de valeur

Salut,

Comme tu ne donnes pas trop, d'info, je vais seulement te donner des bout de syntaxe et tu adapteras selon tes besoins.
Donc pour désactiver un bouton sans le cacher, tu peux utiliser dans tes With un .Enabled = False
Si maintenant tu veux faire ce Enabled selon une valeur, il te suffit de le mettre dans un If :

If range("a1").value="toto" then 
.Enabled = True
Else
.Enabled = False
End if

Pour ce qui est d'etre invisible, il me semble qu'il faut mettre .Visible = True

@+

Je vais regarder cela de pres merci.