Discussion :

[Daejung]

Bonjour,

Comment ajouter une commande dans la liste qui s'affiche sur clic droit dans Excel 2003?

Merci

[JackOuYA]

Bonsoir,

un petit coup de google et je suis retombé ici


Comment ajouter une commande au menu contextuel d'une cellule Excel ?

[Daejung]

Merci ca marche

mais apparemment il y a une inversion dans la fonction appelée :

il faut :

Code :

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

MenuCell "AjoutePrefixe", "Ajouter Prefixe"

au lieu de :

Code :

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

MenuCell "Ajouter Prefixe", "AjoutePrefixe"

Autres soucis :
Ces commandes sont ajoutés à chaque ouverture du classeur ce qui crée des doublons. Comment les enlever quand on le ferme?
Pas possible que ce menu ne s'applique qu'à un seul classeur?

Merci

[Daejung]

j'ai trouvé comment supprimer :

Code :

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

Application.CommandBars("Cell").Controls(stMess).Delete

[Invité]

j'ai trouvé comment supprimer :

Code :

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

Application.CommandBars("Cell").Controls(stMess).Delete

Donc à priori c'est résolu, alors un petit clique sur

[Daejung]

Presque résolu.. une petite question subsidiaire

dans mes tests la commande s'est ajoutée plusieurs fois dans le menu contextuel.

Comment s'assurer que la commande

Code :

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

Application.CommandBars("Cell").Controls(stMess).Delete

supprime toutes les occurences si pour une raison ou pour une autre elle venait à s'ajouter plusieurs fois?

Je pensai passer en revue toutes les commandes du menu contextuel mais

Code :

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

Application.CommandBars("Cell").Controls.Count

ne donne pas le nombre de ces commmandes d'une part et

Code :

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

Application.CommandBars("Cell").Controls(i).Name

n'est pas reconnu (avec

Code :

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

i  = 1 to Application.CommandBars("Cell").Controls.Count

d'autre part

Merci