Bonsoir
j'ai un code qui fonctionne super bien,
au double clic sur n'importe quelle cellule de la colonne D l'userform2 se lance

voici le code qui marche bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
        Cancel = True
        UserForm2.Show
 
    End If
    End Sub
Je souhaite ajouter une autres condition : au double clic sur n'importe quelle cellule de la colonne E l'userform3 se lance également

Alors j'ai fais comme ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
        Cancel = True
        UserForm2.Show
        If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
        Cancel = True
        UserForm3.Show
    End If
    End Sub
Malheureusement ça bloque
quelqu'un peut m'aider svp ?