Gros problème "Click droit"

[Lu K]

Bonjour,

Je viens de nouveau vers vous car j'ai fait une grosse bétisse !!!

Je voulais par l'intermédiaire du click droit, avoir un nouveau controls dans ce menu. J'ai donc cherché sur le net et j'ai trouver ça :

Dans thisworkbook

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
For i = LigHaut To LigBas
        With Application.CommandBars("cell").Controls _
            .Delete(Type:=msoControlButton, before:=1, temporary:=True)
            .Tag = 1
            .Caption = "Essai"
            .OnAction = Essai
        End With
Next i
End Sub

Dans un module :

Sub Essai()
    Dim nb As Byte
    nb = CommandBars.ActionControl.Tag
    ActiveCell.Value = Cells(nb, Cells(1, 108).Value).Value
End Sub

oui très bien ! Ca fonctionne. Mais comme j'ai fait plusieur click droit, il m'en à ajouté autant ET MAINTENANT JE NE SAIS PAS COMMENT SUPPRIMER TOUT CA !!! Dès que j'ouvre un fichier, il y a pas moins de 25 controls !!!

S'il vous plait : A L'AIDE !

 

[TempusFugit]

Re : Gros problème "Click droit"

Bonjour


Avec cela tout rentrera dans l'ordre

Sub RemettreMenuContextuel()
Application.CommandBars("cell").Reset
End Sub

 

[Lu K]

Re : Gros problème "Click droit"

Bonjour TempusFugit,

Mille merci pour ton aide précieuse ! Je sais pas comment j'aurais fait !

J'en profite un peu :

L'aujout de ce controls fonctionne lorsque je fait un click droit sur une cellule, mais ne fonctionne pas lorsque le curseur est placé dans la cellule.

Y'as t'il un moyen pour placer ce controls dans ce menu ?

Merci d'avance pour vos réponse.

 

[TempusFugit]

Re : Gros problème "Click droit"

Ce menu apparait lorsqu'on fait un clic-droit.

Je te laisse déviner ce qu'il faut en conclure.

 

[Lu K]

Re : Gros problème "Click droit"

Heu...... ?

 

[TempusFugit]

Re : Gros problème "Click droit"

L'aujout de ce controls fonctionne lorsque je fait un click droit sur une cellule, mais ne fonctionne pas lorsque le curseur est placé dans la cellule

Ce menu apparait lorsqu'on fait un clic-droit dans une cellule comme je viens de te le dire.

Donc faire autre chose qu'un clic-droit ne fait pas apparaitre ce menu.

C'est ce que je voulais dire.

 

[Lu K]

Re : Gros problème "Click droit"

Ok merci !

Je vais chercher une autre solution alors.

Bonne journée et encore merci

 

[Pierrot93]

Re : Gros problème "Click droit"

Bonjour,

Pas tout suivi, regarde peut être du coté de

Application.CommandBars("Formula Bar")

bon après midi
@+

 

[Lu K]

Re : Gros problème "Click droit"

Bonjour Pierrot93,

Oui, super c'est exatement ça !!

Merci beaucoup.

 

[TempusFugit]

Re : Gros problème "Click droit"

@Lu k
Tu peux expliquer comment tu utilises la suggestion de Pierrot93 dans ton code VBA ?

 

[Lu K]

Re : Gros problème "Click droit"

Re,

Tu as compris qu'il y avait comme même un problème ? Je viens de m'en rendre compte.

Oui, quand je suis dans une cellule et que je fait un clic droit au milieu de mon texte, le menu affiche bien le controls que j'ai ajouté. Par contre, quand je clic sur celui-ci rien ne ce passe.

Private Sub Workbook_Open()
With Application.CommandBars("Formula Bar").Controls _
            .Add(Type:=msoControlButton, before:=1, temporary:=True)
            .Tag = 1
            .Caption = "Info"
            .OnAction = "info"
        End With

Dans un module

Sub info()
MsgBox "Ca marche pas !!!"
End Sub