calendrier click puis données dans textbox

Bonjour a vous tous

j'ai un userform avec un textbox1 et 1 bouton qui appelle l'userform calendrier
quand je clic sur une date du calendrier
comment puis je faire pour que ce soit le textbox1 qui recoivent les données
et non une cellule comme cet exemple

Code:

---

1 2 3 4 5 6 7

Private Sub Calendar1_Click() Unload Me ActiveCell.Value = Format(Calendar1.Value, "mm/d/YY") End Sub Private Sub UserForm_Initialize() Calendar1.Value = Date End Sub

---

merci d'avance

Pascal

Code:

---

usferform1.textbox1 =Calendar1.Value 'adapte le nim de l'usf

---

bonjour mercatog
merci pour le code , je revenaisjuste sur le post pour l'enlever car je venais de trouvé ,je ne mettait pas le nom de l'userform en tete de formule

merci beaucoup et bonne soirée

Pascal