Contrôle format date

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:

---

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

Salut,

tu peux t'inspirer de ce tuto pour aller chercher le complément dont tu as besoin

https://jpcheck.developpez.com/tutor...international/

L'idée étant de valider le fait qu'en plus du IsDate(), le format renseigné correspond à celui auquel tu t'attends :)

Bonsoir,

merci j'ai à peu près résolu les problèmes de contrôle de format de la date, il me reste cependant le pb de la saisie 047/8 qui reste valide...

je ne vois à mon niveau que la solution de découper la saisie en morceaux avec les fonctions Left, Right et Mid pour vérifier le format mais ce n'est pas très élégant...

Salut,

plusieurs approches là encore.

La plus évoluée sera les expressions régulières en utilisant par exemple

Code:

---

[0-9]{2}/[0-9]{2}/[0-9]{4}

---

Et tu affines ensuite.

Bonjour,

je ne vois pas comment utiliser cette expression

Citation:

---

[0-9]{2}/[0-9]{2}/[0-9]{4}

---

{2} {2} {4} je suppose que cela correspond à jj mm aaaa

et [0-9] au 10 caractères d'une date complète

mais je ne comprends pas la syntaxe.

Pardon, un peu de lecture pour compléter ma suggestion

https://cafeine.developpez.com/access/tutoriel/regexp/

Merci,

Lecture un peu difficile au premier abord, mais j'ai réussi à me débrouiller, c'est bon maintenant