Formatage date jj/mm/aa

[kohta]

Bonjour le forum,

j'utilise ce bout de code pour formater et obliger la saisie d'une date dans une textbox:

Private Sub Textboxdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
ArrD = Split(TextBoxdate.Text, Application.International(xlDateSeparator))

'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Merci de respecter le format JJ/MM/AA")
box.Hide
GoTo Fin
End If
If Not IsDate(TextBoxdate.Value) Then
MsgBox ("Veuillez saisir un format de date JJ/MM/AA")
GoTo Fin
End If
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
TextBoxdate.SetFocus 'redonne le focus au textbox
TextBoxdate.SelStart = 0 'positionne le curseur au début du textbox
TextBoxdate.SelLength = Len(TextBox11) 'sélectionne le texte dékà entré
End Sub

Cependant, chaque fois la macro me renvoi dans la cellule la date sous format anglais.

(Si 05/03/09, j'obtiens 03/05/09)

Quelqu'un aurait-il une solution pour laisser la date en format normal?

Merci de votre aide et bonne journée.

 

[jeffe]

Re : Formatage date jj/mm/aa

à adapter pour retourner dans ta cellule la date au bonformat

IIf(IsDate(.Range("d" & x)), CDbl(.Range("d" & x)), "")

 

[PascalXLD]

Re : Formatage date jj/mm/aa

Bonjour

il faut convertir du genre

range("A1")=CDate(Textbox1)