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

Pasbleau · 13 Octobre 2011

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 :

Code:

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 · 13 Octobre 2011

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

Bonsoir,

ne sera actif que sur la plage A1:A10 :

Code:

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 · 13 Octobre 2011

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

Bonjour pasbleau,

Ceci devrait fonctionner :

VB:

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 · 14 Octobre 2011

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

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

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

Pasbleau

Guest

Pierrot93

XLDnaute Barbatruc

Grand Chaman Excel

XLDnaute Impliqué

Pasbleau

Guest

Discussions similaires

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

Pasbleau

Guest

Pierrot93

XLDnaute Barbatruc

Grand Chaman Excel

XLDnaute Impliqué

Pasbleau

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency