Date USA en francais

Salut à tous, ci joint un formulaire :

Mon problème est lorsque je tape une date celle-ci est transformée en format us (les mois sont inversés avec les jours), comment faire ?

Et en passant ou mettre le code pour décharger le formulaire ?

Merci par avance

Bonjour

L'évènement choisi n'est peut-être pas le plus approprié

Essayes

Private Sub TextBox1_Change()
Range("A1") = ""
On Error Resume Next
Range("A1") = CDate(TextBox1.Value)
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub

bonjour,

Comment souhaite tu générer ta date.

Automatiquement à l'ouverture de l'userform, en m^me temps que tu vides...

Pour générer la date au bon format:

Range("A1") = CDate(TextBox1)

Merci ca marche nickel, ce code fonctionne parfaitement :

Private Sub TextBox1_Change()
Range("A1") = ""
On Error Resume Next
Range("A1") = CDate(TextBox1.Value)
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Je voulais que la date que j'entre dans le textbox soit exactement la même dans la cellule A1 (et non qu'il me le transforme au format us "mm/jj/aa", le format europeen m'importe puisqu'ensuite je retraite la date au format "nombre"

Merci aussi pour le code "Unload Me", je ne savais pas ou le placer !