Interface pour macros (dans le bandeau?)

Bonjour,

Personnaliser le bandeau, c'est assez limité. Si tu as beaucoup de macros, et suivant l'usage que tu en as, tu peux créer une barre de menus. Voici un exemple très simple avec deux macros :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub CreationMenu()
    Dim MaBarre As CommandBar
    Dim i As Integer
    On Error Resume Next
    Application.CommandBars("DblClic").Delete
 
    Set MaBarre = Application.CommandBars _
        .Add(Name:="DblClic", Position:=msoBarPopup)
        With MaBarre
            Set ctrl = .Controls.Add(Type:=msoControlButton)
            ctrl.OnAction = "Act1"
            ctrl.Caption = "toto"
            Set ctrl = .Controls.Add(Type:=msoControlButton)
            ctrl.OnAction = "Act2"
            ctrl.Caption = "titi"
        End With
    MaBarre.ShowPopup
End Sub
Sub Act1()
    MsgBox "toto"
End Sub
Sub Act2()
    MsgBox "titi"
End Sub

Dans le module de la feuille, tu mets :

Code:

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    CreationMenu
End Sub

La barre s'affichera sur un double clic dans une cellule.