Discussion :

[retraite83]

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

[Jean-Philippe André]

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

[retraite83]

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...

[Jean-Philippe André]

Salut,

plusieurs approches là encore.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et tu affines ensuite.

[retraite83]

Bonjour,

je ne vois pas comment utiliser cette expression

[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.

[Jean-Philippe André]

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

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