XL 2019 Ajouter une commande au menu contextuel

[dodineau]

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+

 

[patricktoulon]

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

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

 

[dodineau]

Bonjour et merci c'est exactement ce que je recherchais 🙂

 

[patricktoulon]

de rien 😉

 

[jm.andryszak]

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

 

[patricktoulon]

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

 

[jm.andryszak]

Bonjour
Oui, je comprend bien le code, il n'y a pas de raison que le bouton aille dans le menu Compléments.
Mon Excel 2010 n'a pas de licence officielle, c'est peut-être la raison ...

 

[patricktoulon]

re
a ben si ton office est craké et que ça te provoque de tels trucs, j'imagine même pas ce que ça doit faire ailleurs
et toi tu lui fait confiance ? 🤣