Double click dans une cellule pour apparaitre un userform

[oli2711]

Bonjour,
J'ai une feulle excel avec deux userform. Je veux cliquer sur une cellule ou une autre cellule pour faire apparaitre un userform.
Ci dessous le code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D12"), Target) Is Nothing And Target.Count = 1 Then
UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Left = Target.Left + Target.Width + 20
UserForm1.Show
End If
Cancel = True
If Not Intersect(Range("D11"), Target) Is Nothing And Target.Count = 1 Then
FC_Calendar.JML.Show
End If
Cancel = True
End Sub

Quand j'utilise que le userform1 ca foctionne.
Comment faire pour que ca foctionne avec les 2

Merci

 

[Dranreb]

Bonjour.
Essayez comme ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
   Case "$D$12": Cancel = True
      UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
      UserForm1.Left = Target.Left + Target.Width + 20
      UserForm1.Show
   Case "$D$11": Cancel = True
      FC_Calendar.JML.Show
      End Select
End Sub

 

[oli2711]

Bonjour,
Merci pour votre aide.
Ca fonctionne