Double click dans une cellule pour apparaitre un userform

oli2711

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour.
Essayez comme ça :
VB:
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
 

Discussions similaires


Haut Bas