Date de calendrier dans Textbox

Bonjour à vous,

J'ai un soucis avec l'utilisation d'un calendrier.

Je souhaite faire apparaître ma date dans une Textbox sur mon formulaire et non dans ma celulle selectionnée sur ma feuille.

Je joints un fichier ainsi que le bout de code qui me semble problématique

Si vos idées sont plus claires que les miennes, je suis preneur !

Merci d'avance et bonne journée.

 If CurrentModeInfo = "JOUR" Then
        If Val >= ScaleDownInfo And Val <= ScaleUpInfo Then
            DateSelected = CDate(Val - ScaleDownInfo + 1 & "/" & MonthInfo & "/" & YearInfo) & " " & Me.LiveClock
            'TextBox1.Value = DateSelected
            ActiveCell.Value = DateSelected
            Unload Me
        End If

Bonjour

Ci joint ma solution

A+ François

Oh, je n'indiquais pas l'userform sur lequel était le textbox, j'ai honte !

Merci de ta réactivité et ton efficacité François.