Discussion :

[lapa-jh]

-----------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.

[ouskel'n'or]

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.

[lapa-jh]

merci bien j'ai codé comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

'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?

[lapa-jh]

me revoilà...

j'ai codé comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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

[SilkyRoad]

bonsoir

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lapa-jh]

j'ai codé comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[SilkyRoad]

bonsoir

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


bon week end
michel

[lapa-jh]

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.

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lapa-jh]

ok je te remercie, c'est plus clair effectivement

je testerai ça lundi au boulot


edit: c'est bon ça fonctionne!

merci encore!