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

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #2

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.

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Juin 2006

• #3

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.

Code:

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

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #4

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.)

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 19 Juin 2006

• #6

Et hop !!!


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


lol
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #8

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 19 Juin 2006

• #9

Salut cher ami Jean-Marie, MacPoy, le Forum

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

😉

[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Juin 2006

• #10

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Juin 2006

• #11

Re,

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

🙂

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #12

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.

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Juin 2006

• #13

re,

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

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #14

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 !!!!!

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 19 Juin 2006

• #15

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

 

Vote positif 0 Vote négatif