[VBA-E]menus contextuels et macros associées

Version imprimable

Je souhaite disposer pour un classeur donné d'options supplémentaires dans le menu contextuel (click droit)

une de ces options est de nomer la plage de cellule sélectionnée et l'autre est une macro personnelle (affichage_des_données_numériques) et enfin la troisieme option est de pouvoir afficher la fenêtre "modes de calcul" par le menu contextuel.

Je sais modifier ou ajouter des barres d'outils mais je ne'arrive pas à le faire avec des menus contectuels.
j'ai essayé cela pour appeler ma fonction personnelle mais ca ne fonctionne pas
Code:

1 2 3 4 5 6 7 8 9 10 private Sub workbook_activate() With Application.CommandBars("Cell").Controls.Add(msoControlButton, temporary:=True) .Caption = "affichage numérique" .OnAction = "affichage_des_données_numériques" End With End Sub
Merci d'avance pour l'aide...

peut-etre avec thisworkbook.open, sinon il va le faire a chaque focus du classeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    Set cmb = Application.CommandBars("Cell").Controls.Add(msoControlButton, temporary:=True)
    With cmb
        .Caption = "A&ffichage numérique"
        .OnAction = "affichage_des_données_numériques"
        .Style = msoButtonCaption
        .TooltipText = "Affichage des données numériques"
        .BeginGroup = True
        .Visible = True
    End With
End Sub

14/03/2007, 23h01
hoddepaul

Dysfonctionnement

Quand j'essaie la solution vers laquelle tu m'orientes, j'ai un message d'erreur, "impossible de trouver la macro'test1.xls!affichage des données numériques'

Par ailleurs, comment faire pour ajouter une fonction déjà existante? (type nommer les cellules...)
14/03/2007, 23h05
hoddepaul

Ps

J'oubliais juste d'ajouter que la macro se trouve juste en dessous du programme précédemment cité et que elle fonctionne indépendamment...

En tous cas la création du menu est en effet plus satisfaisante comme cela, je n'ai pas de redondance si je travaille sur plusieurs classeurs à la fois! Merci cela m'aide déjà pas mal

Si un exemple te suffit, tu peux essayer ça, ça ne coûte rien et tu pourras le supprimer : Un menu sur la barre de menu contenant 4 macros. Suffit d'adapter.

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
25
26
27
28
29
Sub CréationMenuGraphes()
Set MonControl = CommandBars("Worksheet Menu Bar").Controls _
    .Add(Type:=msoControlPopup)
    With MonControl
        .Caption = "Mise en forme des graphes"
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe Dépenses"
                .OnAction = "BarregrapheDépenses"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert Dépenses"
                .OnAction = "GrapheDépensesAnnée"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe recettes"
                .OnAction = "Barregrapherecettes"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert recettes"
                .OnAction = "CamembertDépensesAnnuelles"
            End With
        Set MonMenu = Nothing
    End With
    Set MonControl = Nothing
End Sub

15/03/2007, 07h24
dadavyvy

Citation:

Envoyé par hoddepaul

J'oubliais juste d'ajouter que la macro se trouve juste en dessous du programme précédemment cité et que elle fonctionne indépendamment...

OK, alors soit tu sors ta macro dans un module standard, soit tu changes :

Code:

.OnAction = "thisworkbook.affichage_des_données_numériques"