Bonjour et tous mes vœux à tous,

J'ai un problème de contrôle de date que je pensai résolu :

Une cellule "F6" définie en format date dans la feuille "Infos" avec le type : *14/03/2012

un code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Not IsDate(infos.Range("F6")) Then
  Msgbox "Date invalide"
  Exit Sub
Else
end if
Un utilisateur a tapé : 047/8
la date est interprétée comme 01/08/2047 et donc pas de détection d'erreur.

Je ne vois pas comment faire pour contrôler vraiment la validité de la date