Discussion :

[electrosat03]

Salut,

J'ai créer une barre de menu perso, j'aimerais désactiver certain bouton et les activer suivant les action faites sur le formulaire.

Par ex : Menu1 avec le bouton 3 à désactiver à l'ouverture du form.
et Menu1 avec le bouton 3 à réactiver à un click sur un bouton par exemple.

Merci
A+

[Jean-Philippe André]

bonjour, tu peux soit gérer le .visible du menu après évènement, soit les laisser afficher, mais faire un test en début de fonction se déclenchant lors du clic sur le menu...

[electrosat03]

Salut,

Merci pour ta réponse, mais il doit-être possible de mettre en enabled un bouton d'un menu perso, non?

A+

[Domi2]

Bonjour,

Code :

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

CommandBars("mnuNomMenu").Controls("Menu1").Controls("Bouton3").Enabled = False 'True

A placer par exemple sur l'événement sur ouverture du formulaire, ou sur Activation, selon tes besoins.

Domi2

[electrosat03]

Salut Domi2,

Merci pour ta réponse, c'est OK.

Encore une question, une image perso pour ce bouton, en grisé l'image n'apparait pas en grisé, une idée, ou faut-il que je remplace l'image du bouton par la même en grisé. Si oui, comment faire en vba.

Merci

[FreeAccess]

Bonjour,

Petit exemple:
Ta barre de menu (Menu1) avec deux menus..

Pour désactiver le premier menu sur 'Activation' du formulaire:

Code :

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

1
2
3
Private Sub Form_Current()
CommandBars("menu1").Controls(1).Enabled = False
End Sub

Sur clic sur un bouton, permmet la ré-activation du menu 1:

Code :

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

1
2
3
Private Sub Commande1_Click()
CommandBars("menu1").Controls(1).Enabled = True
End Sub

...Voila, en espérant répondre à ta demande.....

[electrosat03]

Salut FreeAccess,

Merci, mais Domi2 m'avait déjà répondu.

Mais si tu as une réponse pour le post avant, merci

[FreeAccess]

..une image perso pour ce bouton, en grisé l'image n'apparait pas en grisé

Perso, avec AC2003, le nom du menu ainsi que son icône sont grisés....

Maintenant, il me semble que le code donné par Domi2 rend non actif, un sous-menu du menu....et non le menu lui même....

[Domi2]

Bonjour FreeAccess,

Maintenant, il me semble que le code donné par Domi2 rend non actif, un sous-menu du menu

Effectivement... Pour désactiver le menu lui même

Code :

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

CommandBars("mnuNomMenu").Controls("Menu1").Enabled = False

Je préfère utiliser le nom du menu, je trouve que c'est plus parlant...

Pour les images, j'ai pas Access sous la main, mais je suis sûr que si ce sont des boutons standard d'Access, ils se "grisent".

Par contre, si c'est une image personnalisée, je ne sais pas comment cela réagit... L'explication est peut-être là

Domi2

[electrosat03]

En fait, j'ai une barre de menu où j'ai un bouton texte et image, si je met en enabled=false, le texte est en grisé mais l'image elle disparaît, il reste la palce de l'image mais pas en grisé comme les images des boutons dans les menus access.

Je sais pas si je suis clair?
Merci

[Domi2]

Re,

Oui, bizzare...

J'en utilise pas, donc je ne connais pas le comportement... Et je ne peux pas tester maintenant... Mais es-tu sûr que tu as bien une barre de menus personalisée et non une barre d'outils ?

Domi2

[FreeAccess]

...es-tu sûr que tu as bien une barre de menus personalisée et non une barre d'outils ?

Je confirme, que ce soit une barre de menu ou une barre d'outils, dans tous les cas le texte et l'image sont grisé....(AC2003).
Par contre il s'agit d'image par défaut et non perso....

[electrosat03]

Ben oui, il s'agit d'une image icone récupérée.

Merci quand même.

A+