Discussion :

[Rough43]

Bonjour à tous,

J'ai pu créer une barre de menu personnalisée avec plusieurs boutons ( d'après "VBA EXCEL Création d'une barre de menus personnalisée par Fred (fring)").

Seulement, je souhaiterais désactiver et griser un ou plusieurs boutons de commande après un clic là-dessus . Ceci a pour éviter de recommencer une 2ème fois.

et avant fermeture de ce classeur, réactivation de ces boutons.

Merci d'avance

[Daniel.C]

Bonjour,

Pour désactiver le bouton :

Code :

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

1
2
3
    With Application.CommandBars("Personnalisé 1")
        .Controls(1).Enabled = False
    End With

[Rough43]

Rebonjour,

Avec ce macro, cela ne fonctionne pas comme je souhaitais.

C'est seulement après le clic d'un bouton (après lancement d'un macro) que je souhaitais désactiver ce bouton. (il suffit que ce bouton soit désactivé après lancement d'un macro; cela évitera de recliquer une 2ème fois par erreur)

En espérant d'être clair,

Bon après midi!

[Daniel.C]

Mets ce code à la fin de ta macro. Dans la macro évènementielle de fermeture du classeur, mets au contraire :

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application.CommandBars("Personnalisé 1")
        .Controls(1).Enabled = True
    End With
End Sub

[Rough43]

ça marche!

Merci!

Problème résolu

[fring]

Bonjour,

Au cas où tu repasserais par ici, pour répondre à ...

je souhaiterais désactiver et griser un ou plusieurs boutons de commande après un clic là-dessus

il y a une solution plus souple que de passer par l'index du bouton Controls(1) qui peut évoluer dans le temps au fur et à mesure que l'on ajoute ou enlève des contrôles sur cette barre de menus.

Lorsque tu as créé les boutons, tu as lié une procédure à chaque bouton via la propriété OnAction : MonBouton.OnAction = "MaMacro" .

Dans chacune de ces procédures, tu ajoutes cette ligne de code CommandBars.ActionControl.Enabled = False qui aura pour effet de désactiver le bouton sur lequel on vient de cliquer, sans se soucier de savoir si ce bouton est le contrôle n°1, 2, ou 5...

Pour réactiver tous les boutons à la fermeture du classeur, tu peux faire comme ceci :

Code à placer dans un module standard :

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

1
2
3
4
5
6
7
Sub Boutons_ON()
Dim Ctrl As CommandBarControl
 
For Each Ctrl In CommandBars("mabarre").Controls
    Ctrl.Enabled = True
Next
End Sub

Code à placer dans le module ThisWorkbook :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Boutons_ON
End Sub