Bonjour le forum,
j'utilise ce bout de code pour formater et obliger la saisie d'une date dans une textbox:
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.
j'utilise ce bout de code pour formater et obliger la saisie d'une date dans une textbox:
Code:
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.