Bonjour à tous
 
Je souhaite modifier le menu contextuel « Cell » de EXCELL.
 
J’arrive à ajouter une commande grâce au code ci-dessous :
 
Sub Ajoutcommande_menuContextuel()
 
Dim NouvelleCommande As CommandBarControl
Set NouvelleCommande = CommandBars("Cell" ).Controls.Add
 
NouvelleCommande.Caption = "Modifier couleur"
 
End Sub
 
Je veux que cette commande ait l’apparence d’un bouton que j’ai créé auparavant avec l’éditeur de bouton.
 
Si j’utilise le code :
MsgBox CommandBars("Personnalisé3" ).Controls("Personnalisé" ).ID
Je récupere l’id du bouton qui m’a servi de base pour mon bouton « Personnalisé ».
 
 
Quelqu’un sait-il comment récupérer l’id d’un bouton personnalisé ?
Quelqu’un sait-il comment ajouter un bouton personnalisé à un menu contextuel ?
 
Merci d’avance

Après avoir ajouter le bouton à "Cell":
 
Set myControl = CommandBars("Personnalisé3" ).Controls("Personnalisé" )
myControl.CopyFace
Set myControl = CommandBars("Cell" ).Controls("Modifier couleur" )
myControl.PasteFace