Discussion :

[anikeh]

Bonjour,

j'ai developpé avec VB un menu ( comme celui qui apparaît quand on clik sur Fichier). Certains champs sont grisés lors du chargement du menu.

Code :

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

1
2
3
4
5
6
7
8
9
 
 Set monmenu = MonControl.Controls.Add(msoControlButton)
            With monmenu
                .Caption = "Code Produit"
                .OnAction = "CodeProduit" 'Action dépendante
                .BeginGroup = True
                .Enabled = False
            End With
        Set monmenu = Nothing

Je voudrais, sur le clik d'un bouton, rendre accessible le champ "code produit". Existe t il une manière simple de le faire sans avoir à recharger le menu?

MErci d'avance

Anikeh.

[sovo]

Slut

que veux tu faire exactement ??

sur le clik d'un bouton, rendre accessible le champ "code produit"

s'il sagit d'un menu contextuel voici comme proceder :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   'tout d'abord tu créer normalement ton menu (avec le "createur de menu") a la seule difference que a la propriete visible tu mets "false".
 
   'esnsuite tu place ce code au sur le bouton dont tu veux faire un menu contextuel (tu peut aussi le faire sur tous les autres conttrols)
 
    private sub Commandbutton_keypressed(keyascii as integer)
             if keyascii=vbkeyright then  
                     popupmenu MonMenu    'MonMenu = Nom de ton menu
             end if 
    end sub

j'espere avoir repondu a ta question, si ce n'est pas le cas et bien fait le moi savoir.

[anikeh]

en fait, pour être précis je travaille sur du VBA Excel. J'ai rajouté sur ma barre un menu supplémentaire ( Fichier, Edition ,..., Structure).
Dans le menu structure, un des items est grisé ( enabled =false).
jusque là, c'est normal.
Mon problème est de le dégriser en cliquant sur un commandButton, tout simplement. Et là, j'yarrive pas.

J espere avoir été plus clair.

[AASI]

salut
pour VBA je ne suis pas certain car je n'ai pas eu à le faire mais en VB il suffit de faire comme suit..

Code :

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

1
2
3
Command1_Click()
monmenu.enabled = true
end sub

[anikeh]

non, je ne veux rendre enabled = false qu'un des éléments du menu. Regarder le menu Edition de IE et vous comprendrez.

[Xo]

non, je ne veux rendre enabled = false qu'un des éléments du menu. Regarder le menu Edition de IE et vous comprendrez.

Je pense qu'AASI a compris, il suffit que la variable monmenu (cf son exemple de code) représente ton sous-menu