Inscrirption dans cellules fusionnées à partir d'un userf

Bonjour à tous

Je me demandais si c'était possible d'inscrire une date dans des cellules fusionnées à partir d'un userform calendrier.

La section de cellules fusionnées est de G7:Q7

J'ai beau chercher, mais je ne trouve pas la solution.

Voici mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$7" Then
      Calendrier.Show
      Cancel = True
End If
End Sub

Merci

Bonjour la solution n'est pas dans cette partie là du code, mais dans celui du comportement du calendrier

Bonjour

merci pour votre intérêt!

J'ai trouvé ça:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("G7"), Target) Is Nothing Then
    With Calendrier
      If IsDate(Target) Then .MonthView1 = Target Else .MonthView1 = Date
        .StartUpPosition = 0
        .Move Target.Offset(1, 1).Left + 40, Target.Offset(1, 1).Top + 200
        .Show vbModeless
      End With
    Else
      Calendrier.Hide
    End If
End Sub

Merci à cette source inépuisable d'information qu'est le forum

En effet c'est une solution qui s'intègre! désolé pour la fausse information dans se cas!