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

[tirex28]

Bonsoir,

En fermant ton classeur tu peux restaurer le menu à son état originel:

Code :

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

Application.CommandBars("Cells").Reset

A l'ouverture tu ajoute ton bouton.

Cordialement,

Tirex28/

[Daejung]

Merci mais si d'autres utilisateurs ont des macro qui ajoute des commandes aux menus contextuels je vais les supprimer aussi, non?

[tirex28]

Re,

Dans ce cas tu peux toujours tagger ton bouton pour le retrouver:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AjoutBouton()
   Dim btn As CommandBarButton
   Set btn = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
   With btn
      .OnAction = "NomProcedure"
      .Caption = "&Legende"
      .Tag = "xyz123"
   End With
End Sub
 
Sub EffacerBouton()
   Dim btn As CommandBarButton
   Set btn = Application.CommandBars("Cell").FindControl(Tag:="xyz123")
   btn.Delete
End Sub

Cordialement,

Tirex28/

[Daejung]

Code :

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

Application.CommandBars("Cells").Reset

Génère un message d'erreur :

"Argument ou appel de procédure incorrect"

mais avec

Code :

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

Application.CommandBars("Cell").Reset

c'est bon

Merci

[Daejung]

Le tag ne supprime qu'une occurence

merci

[tirex28]

Re,

Le tag ne supprime qu'une occurence

Ce qui est normalement suffisant si tu n'en ajoute pas a tour de bras, dans le cas contraire:

Code :

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

1
2
3
4
5
6
7
8
9
Sub EffacerBoutonS()
   Dim btn As CommandBarButton
   On Error GoTo Fin
   Do
      Set btn = Application.CommandBars("Cell").FindControl(Tag:="xyz123")
      btn.Delete
   Loop
Fin:
End Sub

Bonne soirée,

Tirex28/

[Daejung]

Merci !