Personnaliser le menu contextuel

-----------RESOLU--------------
bonjour je remonte ce sujet car mon but est d'avoir une série de commandes disponibles dans un menu contextuel sous excel.
j'utilise le code donné par dadavyvy mais j'ai un souci:

à chaque ouverture du fichier, la liste supplémentaire du menu contextuel s'ajoute au menu contextuel...
en gros là, j'aurai auntant de fois "affichage des données numériques" dans mon menu contextuel, que de nombre fois que j'ai ouvert le classeur.

une info pour palier à ce problème?

-------------NON RESOLU----------------

j'en profite pour une mini question supplémentaire:
est-il possible de placer une petite icône devant notre ligne de commande dans le menu?

merci beaucoup.

Tu dois supprimer ton menu en fermant ton classeur, sinon... tu connais et en plus il restera pour les autres classeurs
Jète un oeil là, tu as le code pour supprimer le dernier menu ou bouton ajouté. Attention, celui-ci a été ajouté à la barre d'outils "Standard".
Adapte le nom.

merci bien j'ai codé comme ceci:

Code:

---

1 2 3 4

Sub auto_close() Application.CommandBars("cell").Controls(Application.CommandBars("cell").Controls.Count).Delete   End Sub

---

et ça marche. :) :)

par contre j'ai le même problème que sur le fil linké c'est à dire que lorsque je sélectionne la macro avec le menu contextuel j'ai droit à un

Code:

---

1 2	la macro "nomduclasseur.xls'!nomdelamacro' est introuvable

---

et quand je liste les macros dans la fenêtre d'ouverture des macros celle-ci est dénommée:

Code:

---

'nomduclasseur.xls'!nommodule.nomdelamacro

---

au lieu de nomdelamacro comme toutes les autres.

pécision: la création du menu contextuel se fait sur les commandes du classeur.
la macro que je cherche à activer se trouve dans un module du même classeur (nommodule)

et je n'ai pas compris la solution proposée dans le fil linké. :/

help? :D

me revoilà...

j'ai codé comme cela:

Code:

---

.onaction = "nommodule.nomdelamacro"

---

et ça marche. :)

reste donc une seule question, y a t il un moyen de voir apparaître à gauche de la ligne du menu contextuel un petit icone correspondant ?
j'avoue que ce n'est pas indispensable mais si une personne voit comment faire... ça rendra le menu plus lisible :)

bonsoir

Citation:

---

y a t il un moyen de voir apparaître à gauche de la ligne du menu contextuel un petit icone correspondant ?

---

Tu peux utiliser la propriété FaceId:

Code:

---

1 2 3 4 5 6 7 8 9

Dim oBouton As CommandBarButton Set oBouton = Application.CommandBars("Cell").Controls.Add _ (msoControlButton, temporary:=True)   With oBouton .Caption = "Cliquez ici" .OnAction = "NomMacro" .FaceId = 205 End With

---

michel

j'ai codé comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set cmb = Application.CommandBars("Cell").Controls.Add(msoControlButton, temporary:=True) With cmb .Caption = "Imprimer planning hebdo" .OnAction = "ajouts.imprime"   .Style = msoButtonCaption .TooltipText = "impression du planning hebdomadaire d'un intervenant..." .BeginGroup = True .Visible = True .FaceId = 4 'icône de petite imprimante End With

---

ça ne fait rien du tout. (pas d eplantage mais pas d'icône)

qu'est ce qui cloche? :?

bonsoir

Vérifie le menu contextuel. Ta procédure fonctionne sur mon poste (Excel2007)


bon week end
michel

hum qu'entends-tu par "vérifier le menu contextuel" ?

celui-ci fonctionne sans souçi, mais sans icône...

j'ai excel sous W2K NT pro (au boulot).
idem pour excel 2004 mac.

rebonsoir

Je n'ai pas été clair dans mon précédent message: la macro que je t'ai proposé affiche le Face ID.

Code:

---

1 2 3 4 5 6 7 8 9

Dim oBouton As CommandBarButton Set oBouton = Application.CommandBars("Cell").Controls.Add _ (msoControlButton, temporary:=True)   With oBouton .Caption = "Imprimer planning hebdo" .OnAction = "ajouts.imprime" .FaceId = 4 End With

---

michel

ok je te remercie, c'est plus clair effectivement ;)

je testerai ça lundi au boulot


edit: c'est bon ça fonctionne!

merci encore! :)