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

Staple1600

XLDnaute Barbatruc

• 5 Avril 2018

• #2

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 5 Avril 2018

• #3

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 😉

VB:

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

 

Dernière édition: 5 Avril 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2018

• #4

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 5 Avril 2018

• #5

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2018

• #6

Re

@Lone-wolf

Lone-wolf à dit:

Helo! On c'est croisés 😉

Cliquez pour agrandir...

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

Ce qui expliquerait l'introduction du message#4 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 5 Avril 2018

• #7

Re Jean Marie

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

 

Vote positif 0 Vote négatif

B

Benoist28200

Guest

• 6 Avril 2018

• #8

Bonjour à tous,

Ci-joint le fichier

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

Cordialement

 

Pièces jointes

• Planning amélioration.xlsm

  157.1 KB · Affichages: 14

Vote positif 0 Vote négatif