XL 2016 calendrier

Bonjour Bruno et merci pour votre réponse et j'ai pu corriger, en effet je n'ai plus d'erreur et j'admire votre travail, ce programme est parfait pour mon projet auquel j'ai plusieurs TextBox de date.
Merci bruno

J'ai Microsoft® Excel® 2019 MSO (16.0.13929.20206) 32 bits.
J'a rencontré un problème quand je passe d'un mois à l'autre en cliquant sur la flèche droite ou gauche en haut du mois affiché. Les jours affichés demeuraient les mêmes.
Pour une raison X, la ligne
D1 = CDate("01/" & .Label51 & "/" & TextBox1)
dans UserForm9 me donne toujours le mois de janvier comme réponse.
Pour le rendre plus "universel", j'ai modifié cette ligne comme ceci
D1 = CDate(TextBox1 & "-" & Label51 & "-01") .
Eh oui. Microsoft fait une grande distinction entre les "/" et les "-".
Pour ceux que ça intéresse.
Daniel

bonjour
D1 = CDate("01/" & .Label51.caption & "/" & val(TextBox1))

youky(BJ) à dit:

Je me suis rendu compte que souvent dans les programmes il me fallait utiliser le calendrier sur plusieurs userform et plusieurs textbox.
Voici un calendrier unique pour différent userform et textbox
Un code unique quelque soit l'userform ou le textbox.
Avec ce fichier un seul code simple qui fait tout.
A utiliser sur 1 ou plusieurs userform et autant de textbox.
Bruno

Cliquez pour agrandir...

Merci Mr Youky