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