XL 2010 Transfert date de textbox vers cellule.

[mfb]

Bonjour,
J'ai fouillé et refouillé sur le forum et malgré la multitude de fil sur le sujet je ne m'en sors pas.
Pb de format lors du transfert de date d'une textbox vers une cellule.date;
Voir la Pj
Par avance merci

 

[eriiic]

Bonjour,

on doit deviner le problème ?
Déjà un format restera sur la feuille, met-le manuellement.
Dans un textbox tu as du texte, pas une date. il faut convertir avec cells(x,y)=CDate(TextBox1.Value)
eric

 

[Dranreb]

Bonjour.
Ça donne quoi en prenant CDate(Replace(TextBox1.Value, "-", "/")) ?

Chez moi ça marche :

Private Sub CommandButton1_Click()
Dim D As Date
D = CDate(Replace(TextBox1.Value, "-", "/"))
With Sheets("feuil2").Cells(2, 12)
   .Value = D: .NumberFormat = "yyyy": End With
With Sheets("feuil3").Cells(8, 3)
   .Value = D: .NumberFormat = "d mmmm yyyy": End With
End Sub

 

[mfb]

Re,
Excuses eriiiic si je n'ai pas été clair dans ma demande.
La solution de Dranreb est Ok.
J'avoue ne pas avoir pensé à transcrire le contenu de la textbox en date.
Merci à tous deux et bonne fin d'année.
Daniel