Discussion :

[totor6789]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[Didier Gonard]

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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[totor6789]

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