Comment faire, une macro avec ces deux macros

[Christian0258]

Bonjour à tout le forum,

J'ai, à nouveau, besoin de vos lumières...
Je n'arrive pas à faire cohabiter ces deux macros ;

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

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

 

[Staple1600]

Bonsoir le fil, le fourm

@Christian0258
Je n'arrive pas à faire cohabiter mes éventuelles propositions avec le fichier Excel exemple fourni par le demandeur...
🙄

 

[Christian0258]

Re, le forum, Staple 1600

Merci, Staple 1600, de t'intéresser à mon problème.

Ok, j'ai préparé un fichier ci-joint.
Merci pour votre aide si précieuse.

Bien amicalement,
Christian

 

[Staple1600]

Bonsoir le fil, le forum

Est-ce que cela correspond mieux à tes attentes ainsi?

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Select Case R.Address
Case Is = "$B$5"
With UserForm2
.Left = R.Left + 10
.Top = R.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top
.Show
End With
Case Is = "$C$2"
With F_calendrier1dateTableur
.Top = 190: .Left = 300: .Show
End With
Case Else
Exit Sub
End Select
End Sub

 

[Christian0258]

Re, le forum Staple1600

Merci, Staple1600, pour le boulot...c'est impec.

Bien à toi,
Christian