XL 2010 Transfert date de textbox vers cellule.

eriiic

XLDnaute Barbatruc

• 22 Décembre 2017

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Décembre 2017

• #3

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

 

Dernière édition: 22 Décembre 2017

Vote positif 0 Vote négatif

M

mfb

XLDnaute Occasionnel

• 22 Décembre 2017

• #4

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

 

Vote positif 0 Vote négatif