bug date dans userform

Bonjour,

une fois de plus je viens à vous...je deviens fou!!

Dans mon userform, je rentre une date puis quand je met enregistrer je demande d'enregistrer la valeur dans une case de mon tableau avec :

Code:

---

Range("A10000").End(xlUp).Offset(1, 0).Value = TextBoxDate.Value

---

Mais A CHAQUE FOIS que je rentre une date genre 12/04/12, lorsque j'enregistre il me change le format en 04/12/12!!!! Ca le fait à chaque fois que le jour est inférieur à 12...en fait il doit me le mettre en format anglais mm/dd/yyyy. Pourtant j'ai tout essayé, les format de mes cellules en standard ou en date (française évidemment), mon syst d'exploitation est bien en Francais...Avant j'avais même une macro pour être sûr que ça rentrais une date au format dd/mm/yyyy :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBoxDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim dDate As Date If Mid(TextBoxDate.Value, 4, 2) > 12 Then MsgBox ("Rentrez une date au format jj/mm/aa") TextBoxDate.Value = vbNullString TextBoxDate.SetFocus Exit Sub End If   dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBoxDate.Value = Format(TextBoxDate.Value, "dd/mm/yyyy") dDate = TextBoxDate.Value End Sub

---

Je pensais que c'était elle qui le perturbais, mais même en la retirant, ça me change le format.... Pourtant je ne spécifie rien du tout, il devrait juste recopier les caractères TEL que je les ai rentré ds mon USF...
Please help!!

Bonjour,

vois ce tutoriel pour ne pas devenir fou ;)

http://didier-gonard.developpez.com/...et-vba/#LIII-B

et fais des recherches sur le mot clef date sur le forum, ceci est traité régulièrement.
Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

Excel utilise par défaut le format de date défini dans les paramètres locaux de Windows. VBA, par contre utilise le format mm/jj/aaaa. Utiise :

Code:

---

1 2 3 4

With Range("A10000").End(xlUp).Offset(1, 0) .NumberFormat = "dd/mm/yyyy" .Value = DateSerial(Year(TextBoxDate), Month(TextBoxDate), Day(TextBoxDate)) End With

---

Merci Daniel.C!!!!!!

Cà marche nickel!!
Une fois de plus, vous egayez ma journée!!!

Je vous souhaite de même, une agréable journée