c'est marrant,,, et devient génant !!

[Macpoy]

bonsoir le forum,
il y à quelques jours, je cherchais le moyen d'ajouter une ' fonction ' supplémentaire au clique droit. un gentil forumeur m'a donné ce code (merci à lui .)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

With Application.CommandBars('Cell').Controls.Add
.Caption = 'Nom du Clic Droit'
.OnAction = 'Ta Macro'
End With

End Sub

le pb est que ce code ne fait qu'ajouter une fonction à chaque clique droit, mais, et c'est là qu'est le hic, je me retrouve avec un menu clique droit plus grand que la page.!!!!!
jouer avec les menus est certe dangereux, mais pas impossible !!!

ne pouvant pas vous transmettre de pièce jointe, essayer ce code et vous comprendrez mon pb.

je remercie d'avance les excelliens qui se pencherons sur mon pb.

 

[Macpoy]

Re le forum, bonsoir jmps,
merci beaucoup, pile poil !!!
je suis totalement auto didacte, et n'ai pas la logique VBA, tout ce que je ' bricole ' arrive à terme grâçe à des copier coller de ce que je trouve en telechargement, et surtout gràçe a des passionnés comme toi qui offrent gentillement leur aide.
merci beaucoup.

 

[Dan]

Re:Menu clique droite

Bonsoir,

Oui Macpoy, je me rappelle avoir vu ce fil là et je me suis dit qu'il te manquerait quelque chose.

En plus de ce que jmps vient de te mettre, j'ajouterais cette macro qui s'exécutetait à la fermeture de ton fichier.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars('Cell').Reset
End Sub

A placer en VBA dans THISWORKBOOK.

N'oublie pas d'enregistrer ton fichier avant de le fermer.

😉

PS Macpoy le sujet.?? ->...La charte ....

Message édité par: Dan, à: 19/06/2006 22:11

 

[Macpoy]

Re à tous,
puis je me permettre d'exagerer en demandant un peu plus ? ..........
oui ? ............
merci.
le but de cette recherche, et de pouvoir mettre une listbox dans le clique droit listant toute les feuilles du classeur et permettant d'atteindre la feuille que l'ont souhaite.
merci d'accepter mes abus.


ne me dites pas que ce problème est difficile, s'il n'était pas difficile, ce ne serait pas un problème. ( maréchal Foch.)

 

[ChTi160]

Salut Macpoy
bonsoir le fil

voila ce que j'ai adapté
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Byte
Dim Acreer As Boolean

For I = 1 To Application.CommandBars('cell').Controls.Count
If Application.CommandBars('cell').Controls(I).Caption = 'Nom du Clic Droit' Then Acreer = True

Next I
If Acreer = False Then
With Application.CommandBars('Cell').Controls.Add
.Caption = 'Nom du Clic Droit'
.OnAction = 'TaMacro'
End With
End If
End Sub

 

[_Thierry]

Et hop !!!


Lets go amigo José !!!! et de deux !!!


lol
[ol]@+Thierry[/ol]

 

[ChTi160]

Salut Thierry
eh t'as pas l'image ou le ralenti lol
c'est presqu'en direct

 

[Macpoy]

Re à tous,
vous m'excuserez, mais je me perd dans vos propos cher -thierry!!!
manque d'habitude certainement !!!

 

[_Thierry]

Salut cher ami Jean-Marie, MacPoy, le Forum

Et nan, pas d'image, sinon je me fais enguirlander par Brigitte lol

😉

[ol]@+Thierry[/ol]

 

[ChTi160]

Arff
j'avais oublié qu'elle avait une GameBoy

 

[Dan]

Re,

Tiens Thierry, tu va fêter cela à la Duvel alors...

🙂

 

[Macpoy]

Re à tous,
je viens de passer sur la une et je comprend un peu mieux..........
désolé, je regardais l'hommage à Monsieur Raymond Devos !!!!

si cela ne vous dérange pas, je relancerais ma demande de listbox dans le clique droit.

 

[Dan]

re,

Allez Jmps au travail. Chose promise chose due. C'est 3-1.... 🙂

 

[Macpoy]

Re, Re,Re,
quant on pense à tout cet argent donné aux joueurs d'une équipe (que je ne nommerais pas) et qui pourrait servir certainement mieux vu les résultats !!!!!

 

[Macpoy]

merci à tous pour vos interventions.
je reviendrais certainement demain avec mon pb.
bonne nuit, faites de beaux rêves.