Discussion :

[damsmut]

Bonjour,

J'ai créé un bouton dans ma barre de menu et j'ai créé une procédure qui permet de le supprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Suppr_Bouton_Menu()
 
    On Error GoTo Pas_de_Bouton
 
        Application.CommandBars("Worksheet Menu Bar").Controls("&Bouton").Delete
 
Pas_de_Bouton:
    On Error GoTo 0
 
End Sub

Cette procédure fonctionne.


Par contre, lorsque je clic, sur ce bouton une autre procédure s'éxécute.... et à la fin de celle-ci je souhaiterai que le bouton soit supprimer en lancant la procédure Suppr_Bouton_Menu.... Mais cela ne fonctionne pas, car tant que la procédure s'éxécute le bouton est activé donc impossible de le supprimer.

Help !

Merci

Damsmut

[ouskel'n'or]

Regarde là, tu dois connaître sa position, c'est tout
A+

Edit
Tu mets son index à la place de "CommandBars("Standard").Controls.Count"

[damsmut]

Oais j'ai fait cela par exemple :

Code :

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

Application.CommandBars("Worksheet Menu Bar").Controls.Item(11).Delete

Mais cela ne marche pas non plus car le bouton est grisé pendant toute la procédure.



En fait pour simplifier ma demande : je veux que ce bouton soit supprimé lorsque je clic dessus.

(Ce que j'ai pu faire par contre c'est le mettre en visible = false)

[ouskel'n'or]

Je comprends, ton code est directement lié à la macro. Tu peux utiliser une astuce qui permet de supprimer ton bouton en décalant cette suppression dans le temps
D'abord tu crées ton bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CréerBouton()
Dim nbboutons As Byte
    Set MonControl = Application.CommandBars("Standard")
    With MonControl
        nbboutons = .Controls.Count
        Set MonBouton = .Controls.Add(msoControlButton, 2950, nbboutons)
            With MonBouton
                .Caption = "Recettes" ' Ce qu'affiche le bouton
                .OnAction = "NomMacro" ' la macro associée au bouton
            End With
        Set MonBouton = Nothing
    End With
    Set MonControl = Nothing
End Sub

Et pour supprimer le bouton, tu fais faire ça par une autre macro pour dissocier les deux actions.

Code :

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

1
2
3
4
5
6
7
8
Sub NomMacro()
Application.OnTime Now + TimeValue("00:00:02"), "SupprimerBouton"
'Ici le code de ta macro associée au bouton
End Sub
 
Sub SupprimerBouton()
    Application.CommandBars("Standard").Controls(Application.CommandBars("Standard").Controls.Count).Delete
End Sub

Testé, ça fonctionne chez moi.
Tu dis

[damsmut]

Bonjour,

Encore une question concernant ce sujet.... y'a t-il un moyen lorsque la macro s'exécute, de récupérer le nom du bouton qui est activé dans une variable ?

merci

A+

[ouskel'n'or]

Le caption du bouton ? Je ne sais pas mais le nom de la macro, oui. Quoique... Elle se trouve où, ta macro ?
Sinon, en tête de macro, tu places une variable

Code :

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

LeNomDeMonBouton = "Son caption"

Tu pourrais faire ça ?
A+