Selection_Change

bonjour Vincent,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1"
End Sub

isabelle

Bonjour
Je souhaite lancer un userform après double clic dans une cellule de A3:A50
Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent

Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
End If
End Sub

Si tu veux que les autres cellules soient insensibles au double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
End Sub

Bonjour
Je souhaite lancer un userform après double clic dans une cellule de A3:A50
Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Salut

utiliser l'évenement adéquat ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a":a50")) Is Nothing Then
Cancel = True
tonUserForm.show
End If
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de
news:OLVHoJtuEHA.3200@TK2MSFTNGP14.phx.gbl...

Bonjour
Je souhaite lancer un userform après double clic dans une cellule de
A3:A50

Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent