Appliquer un évenement Worksheet_BeforeDoubleClick à une plage de données

[Pasbleau]

Bonjour à tous,

J'ai un code qui me permet, lorsque je double clique n'importe où sur la feuille, de m'afficher l'UserForm1.
J'aimerais adapter ce code pour que l'UserForm1 ne s'affiche que quand je clique sur une certaine plage de la feuille (plage nommée "tableau"). Et que rien ne se passe lorsque je double clique en dehors de cette page.

Je vous transmets le code qu'il faut adapter :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)

 l = Target.Row: UserForm1.Show
    
    cancel = True

End Sub

Merci à tous et vive excel-downloads

 

[Pierrot93]

Re : Appliquer un évenement Worksheet_BeforeDoubleClick à une plage de données

Bonsoir,

ne sera actif que sur la plage A1:A10 :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
UserForm1.Show
Cancel = True
End Sub

bonne soirée
@+

 

[Grand Chaman Excel]

Re : Appliquer un évenement Worksheet_BeforeDoubleClick à une plage de données

Bonjour pasbleau,

Ceci devrait fonctionner :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
 
 If Not Intersect(Target, [tableau]) Is Nothing Then
    l = Target.Row: UserForm1.Show
 End If
 cancel = True

End Sub

A+

Edit : pas assez vite... boujour Pierrot

 

[Pasbleau]

Re : Appliquer un évenement Worksheet_BeforeDoubleClick à une plage de données

Super, ça marche. Merci beaucoup à vous deux !!!