XL 2019 Ajouter une commande au menu contextuel

dodineau

XLDnaute Occasionnel
Bonjour à toutes et tous.
Je sais ajouter une commande de macro au menu contextuel mais je voudrais savoir si c'est possible de choisir l'endroit pour placer cette nouvelle commande ?
En effet je voudrais ajouter une fonction de tri donc à placer dans le sous menu 'trier".
Merci pour votre aide.
A+
 
Solution
Bonjour
je ne sais pas si c'est possible d'ajouter un item au menu trier dans le ruban par la methode commandbars
avec customUI oui certainement
par contre ajouter cet item dans le sous menu trier du menu contextuel "cell" oui
VB:
Sub createItemInMenu()
   Dim ct As Object, bt As Object, Men As Object
   With CommandBars("Cell")
       .Reset
       For Each ct In .Controls
        If ct.Caption = "&Trier" Then Set Men = ct
       Next
       If Men Is Nothing Then Exit Sub
       Set bt = Men.Controls.Add(msoControlButton, , , 1, True)
        With bt
            .Caption = "trier par un truc"
            .FaceId = 2563 ' l'icon que l'on veux
            .OnAction = "mafonction"
        End With
    End With
End Sub


Sub...

patricktoulon

XLDnaute Barbatruc
Bonjour
je ne sais pas si c'est possible d'ajouter un item au menu trier dans le ruban par la methode commandbars
avec customUI oui certainement
par contre ajouter cet item dans le sous menu trier du menu contextuel "cell" oui
VB:
Sub createItemInMenu()
   Dim ct As Object, bt As Object, Men As Object
   With CommandBars("Cell")
       .Reset
       For Each ct In .Controls
        If ct.Caption = "&Trier" Then Set Men = ct
       Next
       If Men Is Nothing Then Exit Sub
       Set bt = Men.Controls.Add(msoControlButton, , , 1, True)
        With bt
            .Caption = "trier par un truc"
            .FaceId = 2563 ' l'icon que l'on veux
            .OnAction = "mafonction"
        End With
    End With
End Sub


Sub mafonction()
    MsgBox "coucou"
End Sub

Sub resetmenu() ' a lancer a la fermeture du fichier
  CommandBars("Cell").Reset
End Sub
 

jm.andryszak

XLDnaute Occasionnel
Bonjour
Juste pour compléter voici une solution avec customUI.
PS : J'ai remarqué que le code du Post#2 crée aussi le bouton dans le menu compléments
Impossible pou moi de l'enlever sauf à la main.
Je suis en Excel 2010
 

Pièces jointes

  • Custom.txt
    1.2 KB · Affichages: 5
  • Custom.xlsm
    16.1 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
bonjour @jm.andryszak
que le bouton aille dans le menu complement du ruban est bizarre puisque je travaille sur le menu contextuel "Cell"
soit tu t'es trompé quelque part soit alors 2010 c'est une daube cuite au beaujolais 🤣😂😅

pour info j'ai eu 2010 et j'ai toujours modifié le menu "Cell" et ça m'est jamais arrivé
que ce soit sur 2003 2007 2010 2013
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof