Lancer une macro par clic

C

Cathy

Guest

• 14 Février 2003

• #2

Bonsoir Franck et le forum

Dans la feuille: à la place de Général dérouler et trouver Workshett.

=>Private Sub Worksheet_Change(ByVal Target As Range)

@+

Cathy

 

Vote positif 0 Vote négatif

F

Franck DENIS

Guest

• 14 Février 2003

• #3

Merci Cathy,
Mais, je n'avais pas précisé que je me trouve dans un module, car je souhaite utiliser cette macro pour différentes feuilles.

En résumé :
Soient 3 classeurs (A, B et C) identiques contenant chacun une bonne quarantaine de feuilles avec des tableaux. Chaque feuille est différente de l'autre.
Je crée un quatrième classeur (D) de structure identique, mais vierge.

=> Quand je clique sur une cellule, je souhaite que la macro rapporte la somme des 3 cellules correspondante des autre classeurs A, B et C.

(Peut-être y a t il d'autres solutions que les macros. Mais les formules, vu le volume de cellules, risquent d'être lourdes).

Puis-je encore abuser de tes suggestions ?

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 14 Février 2003

• #4

Bonsoir Franck Denis et Cathy

Ben Franck, je ne vois pas le probleme, regarde le code suivant, mets le dans la feuille ou tu veux faire ton clic, exemple feuille1:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A2"), Target) Is Nothing Then Exit Sub
Call Couleur 'nom du sub de ton module
Exit Sub
End Sub

Si tu clique Droit sur la cellule A2 il exécute la procédure Couleur qui se trouve dans un module

@Christophe@

Bonne soiré

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 15 Février 2003

• #5

Bonsoir,

Trés intéréssé par l'ouverture d'une macro par clic droit, je me demande si on peut associé ce clic à une certaine cellule et nom pas à toute la feuille.

Merci et bonne soirée

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 16 Février 2003

• #6

Bonsoir Arnaud,

Dans l'exemple que je donne, la macro est uniquement associe a la cellule A2, tu peux faire clique droit n'importe ou sur la feuille, mais si tu la fais sur cellule A2 il execute ta macro

@Christophe@

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 16 Février 2003

• #7

Salut Christophe

Merci de tes précisions, en fait ce que je souhaite arriver à faire, c'est faire apparaître une userform combobox en cliquant sur une certaine cellule. Ce ci dans le but que ce que l'on selectionne dans la liste déroulante s'inscrive dans la cellule.
C'est surement trés simple, mais pas pour moi, enfin pas encore. Si tu as un exemple c'est avec grand plaisir

Merci et bonne journée

@arnaud

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 16 Février 2003

• #8

Bonjour ce fil...

Spécialement pour mon ami @Xtof@...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A2"), Target) Is Nothing Then Exit Sub
Call Couleur 'nom du sub de ton module
Exit Sub
End Sub

Tu peux éviter intersect pour une seule cellule... ensuite pour utiliser l'évènement "Click Droit" pense à préciser Cancel = True (sinon le menu contextuel apparaîtra également et c'est génant)

çà donne ceci :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub
Cancel = True
MsgBox "Toto"
End Sub

Bon Hot Dog au marché !!!
@+Thierry

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 16 Février 2003

• #9

Bonjour a tous

Thanks Thierry

Comme toujours voici la touche personelle de VBAMAN Thierry

Parfait Thierry, je ne savais pas, mais tres tres bon a savoir.

Merci

@Christophe@

 

Vote positif 0 Vote négatif

F

Franck DENIS

Guest

• 17 Février 2003

• #10

Bonjour à Tous et merci pour vos proses dominicales !

J'ai une nouvelle fois trouvé la solution ludique à mes problèmes VBA sur cet excellent site.

A très bientôt et encore merci !

Franck

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 17 Février 2003

• #11

Merci du suivi Franck

A bientot sur XLD

@Christophe@

 

Vote positif 0 Vote négatif