encore un probleme de date ! [Résolu]

[Oh!Tofocus]

Bonsoir à tous
je voudrais tester la validité d'une saisie de date en ne retenant que les dates sous la forme française jour/mois/année

mon code ne détecte pas une erreur avec reponse = 02-25-2010 et donne date valide

Code :

1
2
3
4
5
6
reponse = InputBox("entrez une date")
If IsDate(reponse) = True  Then
    MsgBox ("c'est une date valide")
Else
    MsgBox ("ce n'est pas une date valide")
End If

[78chris]

Bonjour

Isdate donne OK autant pour la forme us que fr des dates.

Seule solution c'est spliter la date selon les séparateurs, - ou / , et vérifier chaque partie.

[Oh!Tofocus]

merci pour ta réponse 78chris
J'avais envisagé ceci qui marche

Code :

1
2
3
4
5
6
7
8
Sub teste_date()
reponse = InputBox("entrez une date")
If IsDate(reponse) = False Or Mid(reponse, 4, 2) > 12 Then
    MsgBox ("ce n'est pas une date valide")
Else
    MsgBox ("c'est une date valide")
End If
End Sub

mais je pensais qu'il y avais une façon plus élégante.