Problème de date

[poussy67]

Bonjours le forum 😱

J'ai un petit souci que je n'arrive pas à résoudre. J'ai un USF qui contient un textbox ou je saisie une date
lors de la validation cette date est renvoyé dans une cellule en format texte et non en format date.
J'ai essaye avec format(textbox_date,"dd/mm/yyyy") et avec cdate rien a faire.

Ci joint le code que j'utilise

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Dim L As Integer

L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

With Sheets("Feuil1")

.Range("D" & L).Value = Format(TextBox_Date, "dd/mm/yyyy")

End With


Merci d'avance au pro et au expert

cdt Poussy

 

[Pierrot93]

Re : Problème de date

Bonjour,

peut être mettre la cellule de destination au format date au préalable.... pour info "cdate" est la bonne fonction à utiliser pour renvoyer une date à partir d'un textbox, à voir ensuite comment est saisie cette date, sans plus de détails difficile d'en dire plus...

bonne journée
@+

 

[poussy67]

Re : Problème de date

Bonjour Pierrot93

La date est saisie dans la dernière ligne de la colonne ("D") et elle est en format texte,
malgré que le format cellule est en date. Je joins le fichier en question`

cdt Poussy

Merci d'avance Pierrot93 pour ton aide

 

[frangy]

Re : Problème de date

Bonjour,

A priori, avec Cdate ça se passe plutôt bien

.Range("D" & L).Value = CDate(TextBox_Date.Value)

Cordialement.

 

[poussy67]

Re : Problème de date

Bonjour frangy

Impect cela foctionne tres bien, je te remercie beaucoup

bonne journée