Discussion :

[comawhite54]

Bonjour,

Je trouve interessant de pouvoir appeler les macros directement depuis le bandeau de MS excel 2010, en revanche ca ne me suffit pas:

J'aimerai:
- Pouvoir rentrer un parametre dans le bandeau (par ex, un nombre a comparer).
- pouvoir reduire la taile des icones dans le bandeau (car j'ai 10 boutons pour colorier des cellules, si je met tout dans le bandeau je n'ai plus de place pour le reste.

Comment feriez vous, est-ce possible de personnaliser d'avantage le bandeau?
Ou existe-t-il une autre solution, peut-être une userform qui pourrait rester en premier plan?

[Daniel.C]

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 :

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
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 :

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

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.