Bonjour,
Je m'étonne de votre question, car en cherchant un peu, il vous suffisait de chercher l'instruction Msgbox dans l'USf calendrier...
1. Dans l'USF calendrier, remplacez
Msgbox dateselected
par ceci
UserForm1.TextBox_Date = DateSelected
Ensuite réactiver l'instruction sur la ligne suivante
2. Dans l'usform1, remplacez le code Private Sub TextBox_Date_Enter() par ceci
Private Sub TextBox_Date_Enter()
xlDialCalendarMini.Show
End sub
3. Supprimez le bouton Calendrier
Rem : très bien pensé de l'auteur qui a prévu l'utilisation comme vous le souhaitez
Crdlt