renvoie d un textbox DATE sous forme DATE et non pas TEXTE

[Evelynetfrancois]

bonjour ,
j ai completement degraissé la macro pour ne garder que l essentielle , de ma Question:


Private Sub CommandButton1_Click()
Range("B1") = Format(TextBox3, "dddd dd mmmm yyyy")

Sheets("Récap").Select

Range("a65536").End(xlUp).Cells(2, 1) = TextBox3

là bien sur la date arrive sur la feuille "Récap" mais sous forme de texte, comment la renvoyer sous forme de date ??

End Sub



MERCI pour tout vos conseils
bon dimanche

E et F

 

[Hervé]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

bonjour à vous deux 🙂

as-tu essayer quelque chose comme ca ? :

With Range("b1")
    .Value = CDate(TextBox3)
    .NumberFormat = "dddd dd mmmm yyyy"
End With

salut

 

[Evelynetfrancois]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

MERCI pour ton aide Hervé
mais en B1 la date est bonne !!
c est au niveau du renvoie sur la feuille "Récap" qu elle arrive en texte !!!

Range("a65536").End(xlUp).Cells(2, 1) = TextBox3

là j essaye les CDATE , format etc mais rien n y fait !!

donc du coup le tri sur la Feuil "Récap" se fait par ALPHA et non par DATES !!

a te lire , merci !!

E et F

 

[PascalXLD]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

Bonjour

en principe un

Range("a65536").End(xlUp).Cells(2, 1) = CDate(TextBox3)

te renvoies une date

 

[Evelynetfrancois]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

CA Y EST MERCI vous m avez mis sur la voie !!!!!

j avais essayé désesperement = CDate(TextBox3)

en fait j ai mis

Range("a65536").End(xlUp).Cells(2, 1) = CDate(TextBox3.tag)

car a l initialisation de l USF j avais
TextBox3.Tag = Date
TextBox3.Value = Format(Date, "dddd dd mmmm")

me voila sorti d affaire , un grand merci a vous

E et F

 

[PascalXLD]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

Re


ALors là non tu ne mets pas une valeur sur le tag

TextBox3 = Date

et ensuite tu fais comme hervé et moi t'avons dit avec cdate

 

[Evelynetfrancois]

Re : renvoie d un textbox DATE sous forme DATE et non pas TEXTE

Oui bien sur habituellement je ne mets pas .Tag
mais dans mon cas ".Tag" est recuperé dans la suite de ma macro qui est bien plus longue que le ""bout"" envoyé "
______________________________________________
Private Sub SpinButton1_SpinUp()
With TextBox3
.Tag = DateValue(.Tag) + 1
.Value = Format(.Tag, "dddd dd mmmm")
End With
End Sub
..........................................................................
Private Sub SpinButton1_SpinDown()
With TextBox3
.Tag = DateValue(.Tag) - 1
.Value = Format(.Tag, "dddd dd mmmm")
End With
End Sub
________________________________________________

donc voila l explication de sa présence


mais tout fonctionne a merveille maintenant ? MERCI A TOUS

E et F