XL 2010 Transfert date de textbox vers cellule.

mfb · 22 Décembre 2017

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 · 22 Décembre 2017

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 · 22 Décembre 2017

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

Chez moi ça marche :

VB:

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 · 22 Décembre 2017

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

XL 2010 Transfert date de textbox vers cellule.

mfb

XLDnaute Occasionnel

Pièces jointes

eriiic

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Discussions similaires

XL 2010 Transfert date de textbox vers cellule.

mfb

XLDnaute Occasionnel

Pièces jointes

eriiic

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency