Christian0258
XLDnaute Accro
Bonjour à tout le forum,
J'ai, à nouveau, besoin de vos lumières...
Je n'arrive pas à faire cohabiter ces deux macros ;
Merci pour votre aide.
Bien amicalement,
Christian
J'ai, à nouveau, besoin de vos lumières...
Je n'arrive pas à faire cohabiter ces deux macros ;
Code:
Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Intersect(r, [C2]) Is Nothing Then Exit Sub
F_calendrier1dateTableur.Top = 150
F_calendrier1dateTableur.Left = 300
F_calendrier1dateTableur.Show
End Sub
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B5], Target) Is Nothing And Target.Count = 1 Then
UserForm2.Left = Target.Left + 10
UserForm2.Top = Target.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm2.Show
End If
End Sub
Merci pour votre aide.
Bien amicalement,
Christian