Mettre la date du jour dans une TextBox à l'ouverture de l'USF

Bonjour à tous,

Alors voila, je souhaiterais qu'à l'ouverture de l'userform ma TextBox5 (renommée Text5) acquiert la valeur de date du jour.

J'ai tenté cette formule dans le code de l'USF:

Private Sub Text5_Change()

Dim vDate As Date

vDate = Format(Now, "dd/mm/yyyy")

Me.Controls("Text5").Value = vDate

End Sub

2 petits bémols... Premier, la date n’apparaît pas à l'ouverture de l'Userform mais à la modification de la cellule. C'est à cause du "Change" ça je le sais mais "Load" ne fonctionne pas...

Le second c'est que malgrè ma demande de Format "dd/mm/yyyy" la date apparaît en mm/dd/yyyy...

Alors voila, any idea?

Merci encore à vous et désolé pour la simplicité du problème qui ne doit pas vous régaler

Bonjour

Tu devrais joindre ton fichier, même avec des données bidon....

Bye !

Yes, excuse moi, je l'ai oublié!

Bonjour

voila un test a voir

Private Sub UserForm_Initialize()
    Text5.Value = DateValue(Now)
End Sub

A+

Maurice

Hey Super!

Donc la date se rentre bien automatiquement.

Cependant, le problème de format de date persiste. Il apparaît 4/19/2018 :/

Étonnant?

Bonjour,

Remplacer "Now" par Date

A+

Du génie!

Merci à vous tous!

ça marche impeccable!

bonjour,

j'ai le même problème que grexel, je suis très débutante en VBA et je me dépatouille en lisant tous les forums. Là malgré tout je reste dans l'impasse.

dans mon useform j'ai réussit à mettre la date du jour. Elle s'affiche correctement mais lors de l'insertion dans le fichier elle se mets en mm/dd/yyyy.

impossible de le remettre en dd/mm/yyyy.

merci d'avance de votre aide.

Bonjour à tous

Un essai pour jen47

Bye !