Créatioon d'un menu contextuel (clic droit)

[Rapidkiller]

Bonjour TLM

Voici mon probleme, j'ai créée une macro complementaires qui m'ajoute un menu au clic droit.

Le probleme est que si je lance Excel 5 fois, j'obtiens 5 fois le menu dans le clic droit. Comment faire pour que le menu soit ajouter uniquement s'il n'existe pas.

Sub Auto_open()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Mise en forme des stats ?"
.BeginGroup = True
.OnAction = "StatAgentCPC"
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Remise à zero des menus ?"
.BeginGroup = True
.OnAction = "RAS_menu"
End With
End Sub

 

[Baroude]

moi j'utilise : CommandBars("Cell").Controls.Add(msoControlButton, , , , True). La valeur True est une valeur Temporaire...

 

[Baroude]

autre chose : si tu veux tout enlever de ton menu clic droit utilise la macro suivante

Sub CmdEnlevermenuclic_Click()

Application.CommandBars("Cell").Reset

End Sub

... si tu ne le savais pas 🙂

 

[Baroude]

J'en profite pendant que tu es dans les menus "clic droit" : peux-t-on placer la macro en début de menu ? je m'explique : j'ai dans mon menu clic droit une fonction "Collage formule" qui est tout en bas de mon menu et j'aimerais la placer entre "Coller" et "Collage Spécial" ... est-ce possible ?

 

[Rapidkiller]

Merci pour cette reponse rapide.

Concernant la RAS des menus c t OK mais c'est sympa de prendre les devants.

Par contre je dois mal utiliser ta ligne de commande car cela fait toujours pareil...

 

[Rapidkiller]

Je viens de voir ta question :

Pour une fois que j'ai la reponse j'en profite ... 😉)


CommandBars("Cell").Controls.Add(msoControlButton, , , 5, True).

Methode Add : Add(Type, Id, Parameter, Before, Temporary)

Before Argument de type Variant facultatif. Numéro qui indique la position du nouveau contrôle dans la barre de commandes. Le nouveau contrôle s'insère avant celui qui occupe déjà cette position dans la barre. Si vous ne spécifiez pas cet argument, le contrôle est ajouté à la fin de la barre de commandes spécifiée


J'ai mis 5 pour placer ma ligne entre coller et colage special.

 

[Rapidkiller]

En fait je viens de comprendre (c le matin donc je reflechis doucement 😉 cela fonctionne bien si je ferme Excel entre temps. Et comme ma macro ne s'execute qu'a l'ouverture ... c'est tout bon. Merci

 

[Baroude]

C'est tout bon pour moi aussi... merci beaucoup