Problème "selection change" avec "clic droit"

[Benoist28200]

Bonjour le forum,
Est-il possible de n'attribuer le "selection change" que pour le clic gauche ?

Je m'explique, j'ai un userform (Num1) qui s'ouvre à la "selection change" et un userform (Num2) qui s'ouvre au clic droit. Le problème s'est qu'avant de m'ouvrir celui du clic droit , la selection change se déclenche et m'ouvre donc l' userform (Num2).

Merci.

 

[Staple1600]

Bonsoir le fil, le forum

@Benoist28200
Tu as deux userforms.
Chouette, on est content pour toi 😉

Nous on a aucun fichier joint exemple fourni par tes soins...

 

[Lone-wolf]

Bonsoir Benoist

C'est tout à fait normal. Il faut mettre cette condition dans l'évenement SelectionChange pour le 1er formulaire.

If Not Intersect(Target, Columns("A:C")) Is Nothing Then UserForm1.Show. De cette façon, tu pourra afficher le 2ème formulaire en clic-droit sur les autres colonnes.

Hello Jean Marie! On c'est croisés 😉

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
UserForm2.Show
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("A:C")) Is Nothing Then UserForm1.Show
End Sub

 

[Staple1600]

Bonsoir à toi aussi Lone-Wolf...(cf message#2)

@Lone-wolf
Où tu as été péché qu'on utilise les colonnes A B et C ??

 

[Lone-wolf]

Re

Par-ce que il veux afficher 2 forms, un selectionchange, l'autre rightclick. Il peut aussi bien mettre 1 seule colonne.

 

[Staple1600]

Re

@Lone-wolf

Helo! On c'est croisés 😉

Il manquerait pas cinq lettres et 4 chiffres par hasard. 😉

Ce qui expliquerait l'introduction du message#4 😉

 

[Lone-wolf]

Re Jean Marie

(télégramme) Corrigez message 3. Nous attendont message du demandeur. Désolé pour le désagrément. Loup tout seul. 😉😀

 

[Benoist28200]

Bonjour à tous,

Ci-joint le fichier

PS: Le clic droit et le select change se font dans la même plage de cellule.

Cordialement