Saisie de date avec DatePicker dans une TextBox

Bonjour à tous,

Dans un fichier excel pour la gestion de comptes, j'ai divers formulaires avec une TextBox pour la saisie de date via un DatePicker. Le processus fonctionne parfaitement sur deux formulaires (UF_Ecritures et UF_Virement), mais pas avec l'UF_Echeances. Le DatePicker apparait bien au passage de la souris sur la TB_Date, mais après sélection sur le calendrier, la valeur n'est pas renvoyée dans la TextBox. Pourtant les trois formulaires sont structurés identiquement.

Quelqu'un peut-il m'éclairer ?

Ci-dessous le code et je joins également le fichier.

Private Sub TB_Date_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TB = 1
    Pose = Me.Top + Me.TB_Date.Top + (Me.TB_Date.Height * 2)
    Pose = Pose & ";" & Me.Left + Me.TB_Date.Left
    Calendrier.Show
End Sub

Sub TB_Date_AfterUpdate()  'Renvoi la date au format "dd/mm/yyyy" dans le formulaire et dans la feuille de compte
    TB_Date.Value = Format(TB_Date.Value, "dd/mm/yyyy")
    End Sub

Merci d'avance pour l'aide que vous pourrez m'apporter.

Bonsoir Drapela

Etrange façon de se servir d'un module de classe
De plus il existe des version de calendrier sans

Le problème ce situe dans ces lignes, n'apparait que 2 USF sur les 3

A+

Bonjour BrunoM45,

Effectivement, le problème était bien là. Après correction ça fonctionne parfaitement.
Je clos le sujet.

Merci pour tes compétences et ta réactivité.

@+