Format date

Bonjour à tous,

A l'aide d'un userform je rentre des données dans un tableau. Dans une TextBox, je rentre une date en format "JJ/MM/AAAA" mais elle se met en format "MM/JJ/AAAA". De plus la date est utilisée dans d'autres macro et se met là aussi au format américain.

Voici la partie de mon code qui est liée à la date

Dim jour as Date 

.Cells(1, 1) = DateValue(Format(TextBox1.Value, "dd/mm/yyyy"))    

jour = .Cells(1, 1).Value  

J'ai essayé de mettre la colonne de mon tableau au format date courte mais à chaque nouvelle ligne le format se met en personnalisé.

Quelles solutions avez-vous à me proposer ?

Merci de votre aide.

bonjour

au cas ou

1) dans les parametre du pc

heure et date >>>modifier >>>>date courte

cordialement

Bonjour, Salut Tulipe !

Commence par :

.Cells(1, 1) = CDate(TextBox1.Value)

NB- Une TextBox contient du texte quoi qu'il y ait dedans. Format est une fonction qui renvoie une valeur texte...

Il convient donc de toujours éviter d'utiliser Format pour renvoyer une date.

Si ta TextBox contient un texte identifiable comme date, la conversion doit suffire (à condition bien sûr que tes paramètres régionaux soient corrects, comme l'a souligné Tulipe !)

Si encore problème, il faudra fournir un fichier pour qu'on y voit plus clair !

Cordialement.

edit : Et pour la suite, si tu utilise la variable jour en VBA, préfère :

Dim jour

jour = .Cells(1, 1).Value2

Merci Tulipe, je suis allé vérifié et tout était conforme mais je garde l'info de côté pour une prochaine fois !

MFerrand, merci de ta réponse ça marche très bien comme ça et je prends note du complément d'info pour adapter mon code.

A bientôt j'espère !