Discussion :

[loulag07]

Bonjour,
J'ai trouvé beaucoup d'articles décrivant comment ajouter un bouton en utilisant Barre d'outils > Personnaliser >...
Ou comment créer un bouton lançant une macro dans la feuille XL.

Mais je cherchre à mettre un bouton qui exécute une macro dans le menu standard "Insertion".

Comment dois je faire ?

Je vous remercie.

[kiki29]

Salut, voir ici ?

[loulag07]

Merci. J'ai bien été voir ce tutoriel avant de poster cette discussion sur le forum mais je ne souhaite qu'ajouter un bonton au menu "Insertion" classique

J'imagine utiliser

Code :

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

CommandBars("MaBarre").Controls.Add(msoControlButton)

Mais comment trouver le nom de "MaBarre" ? Elle s'appelle "Insert" ?

Merci

[JPierreM]

Bonjour,

Dans un module normal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub créationMenu()
Dim menuOutils As CommandBarControl, monMenu As CommandBarControl
 
supprimeMenu
Set menuOutils = Application.CommandBars.FindControl(, 30005)
 
If menuOutils Is Nothing Then Exit Sub
 
Set monMenu = menuOutils.Controls.Add(msoControlButton, 1, , , True)
 
    With monMenu
        .Caption = "Ma Macro"
        .Tag = "menuAjoute"
        .OnAction = ThisWorkbook.Name & "!sc"
        .FaceId = 3360
        .Style = msoButtonIconAndCaption
    End With
 
 
End Sub
 
Sub supprimeMenu()
    On Error Resume Next
    Application.CommandBars.FindControl(Tag:="menuAjoute").Delete
End Sub
Sub sc()
    MsgBox "Bonjour"
End Sub

Dans le module ThisWorkBook

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    supprimeMenu
End Sub
 
Private Sub Workbook_Open()
    créationMenu
End Sub

On ajoute un bouton en bas du menu Insertion, ce bouton fait fonctionner la macro appelée sc

Est ce ce que vous voulez?

JP

[loulag07]

Si en action je passe ta macro sc.

Par contre si je souhaite passer ma macro qui passe en paramètre objWorkbook as Workbook ça ne fonctionne pas je ne cormprends pas pourquoi.

Tu l'auras remarqué je suis novice en matière de programmation vba

Merci

[JPierreM]

Bonjour,

Plus de détails seraient bien venus ou savoir ce que vous voulez exactement, joindre la macro à appeler

JP