[E-03] VBA Clic droit sur une cellule

[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 :

MenuCell "AjoutePrefixe", "Ajouter Prefixe"

au lieu de :

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 :

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

[Philippe JOCHMANS]

Envoyé par jlgcf

j'ai trouvé comment supprimer :

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

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

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

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

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

n'est pas reconnu (avec

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:

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:

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]

Application.CommandBars("Cells").Reset

Génère un message d'erreur :

"Argument ou appel de procédure incorrect"

mais avec

Application.CommandBars("Cell").Reset

c'est bon

Merci

[Daejung]

Le tag ne supprime qu'une occurence

merci

[tirex28]

Re,

Envoyé par jlgcf

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:

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 !