Valider un format date à 100%

Bonjour,
J'ai créé un programme sous VBA Excel me permettant d’élaborer un planning de maintenance en fonction de butées calendaires.
Les ensembles à suivre placés sur la première colonne sont composés de sous-ensembles eux-mêmes composés d’éléments. Ce qui fait environ 300 dates à contrôler.
Pour vérifier la validité des dates entrées par l’utilisateur, j’utilise cette routine pour chaque cellule :

Code:

---

1 2 3 4 5 6 7 8

Cells(x, 3).Select Selection.NumberFormat = "m/d/yyyy" If IsDate(Cells(x, 3)) = False Then MsgBox "Le contenu de la cellule C" & x & " n'est pas valide." Application.ScreenUpdating = True Cells(x, 3).Select Exit Sub End If

---

Je compare ensuite ces dates à une date de butée calendaire pour élaborer un planning de maintenance.
Jusque là tout avait l’air de bien aller…

Je décide ensuite de créer un userform pour changer les dates à partir de ce dernier.
J’extrait bien les dates des élément dans mon userform par un textbox mais quand je les retranscris dans ma feuille Excel il ne sont plus pris en compte comme date dans mon programme de comparaison. Par contre ma routine de vérification des cellules au format de date valide cité plus haut n’a pas signalé d’erreur. Je résous le premier problème en forçant la valeur de mon textbox au format date par :

Code:

---

1 2 3

LDATE = CDate(datebutée) Cells(x, 3) = LDATE

---

Mais cela me démontre que ma routine de vérification du format date n’est pas fiable à 100%. Cela prouve qu’un utilisateur peut entrer directement sur la feuille Excel une date non valide qui ne sera pas prise en compte par le programme de comparaison.
Ma question est donc :
Existe-t-il un moyen fiable à 100% de valider le format date d’une cellule ?
Peut-être par :

Code:

---

1 2 3 4 5 6 7 8 9 10

Cells(x, 3).Select Selection.NumberFormat = "0" If len(Cells(x, 3)) <> 5 then MsgBox "Le contenu de la cellule C" & x & " n'est pas valide." Application.ScreenUpdating = True Cells(x, 3).Select Exit Sub End If Selection.NumberFormat = "m/d/yyyy"

---

Mais cela fait un peu bricolage, non ?

Merci de votre attention.

Bonjour,

Ce que tu décris ne démontre en rien que la vérification n'est pas fiable.

Ce qui n'est probablement pas fiable est la façon dont tu retranscris le contenu d'une TextBox dans ta feuille Excel.
La TextBox ne contient que du texte et jamais des dates (même si ce qui y est tapé a l'aspect d'une date).
Il faut toujours passer par un CDate pour convertir le texte en Date.

je suis tout à fait d'accord.

Citation:

---

Envoyé par AlainTech

Bonjour,

Ce que tu décris ne démontre en rien que la vérification n'est pas fiable.

Ce qui n'est probablement pas fiable est la façon dont tu retranscris le contenu d'une TextBox dans ta feuille Excel.
La TextBox ne contient que du texte et jamais des dates (même si ce qui y est tapé a l'aspect d'une date).
Il faut toujours passer par un CDate pour convertir le texte en Date.

---

tu écris:

Code:

---

1 2	LDATE = CDate(datebutée) Cells(x, 3) = LDATE

---

mais si LDATE n'est pas défini en type date

Code:

---

Dim LDATE as Date

---

ça revient a faire:

Code:

---

Cells(x, 3) = datebutée

---

LDATE n'est pas utile!

Code:

---

Cells(x, 3) =CDate(datebutée)

---

Bonjour et merci de votre réponse "rdurupt" et "AlainTech".
Mon probème premier venait bien de la retranscription de la date de mon textbox sur ma feuille Excel. Je l'ai effectivement résolu par l'emploi de CDATE. Et effectivement il est possible de faire plus court.
Mon problème est le suivant :
Avant l'emploi de CDATE mon textbox était retranscrit en format texte sur ma feuille Excel. Normal donc. Je m'en suis rendu compte en lançant mon programme et en entrant une date dans mon textbox qui aurait dû réapparaitre sur mon planning de maintenance. Mais en vain. Alors pourquoi lors de la vérification de chaque cellule au type date qui se fait à chaque élaboration du planning cette routine ne me l'indique pas ?

Code:

---

1 2 3 4 5 6 7 8 9

Cells(x, 3).Select Selection.NumberFormat = "m/d/yyyy" If IsDate(Cells(x, 3)) = False Then MsgBox "Le contenu de la cellule C" & x & " n'est pas valide." Application.ScreenUpdating = True Cells(x, 3).Select Exit Sub End If

---

J'en déduis donc qu'elle n'est pas fiable à 100% si l'utilisateur rentre une date directement sur la feuille excel sans passer par le textbox, ce qui doit rester une option valide.

Code:

---

isdate(25)=true

---

car un numérique est bien une date ou plus exactement une date est un numérique avec une représentation sous forme de date à l’affichage.

Code:

---

isDate("01/01/2013") = true

---

ici on test une date sous forme de string la fonction fait une conversion implicite de string en date

Code:

---

If IsDate(Cells(x, 3)) = True and instr(Cells(x, 3),"/")<>0 Then

---

est le test le plus approchant de la vérité car exclus un numerique

Code:

---

Selection.NumberFormat = "m/d/yyyy"

---

fausse les règle du jeux car format un numérique en date!

en revanche il est peut probable qu'Excel face une mauvaise interprétation d'une date saisie au clavier par un utilisateur directement dans la cellule.

Merci pour toutes ces explications.
Je vais modifier ma routine de vérification en conséquence.
Ah les dates sous VBA !!!
Je suis un autodidacte de VBA sous Excel et c'est grâce à votre site que j'ai pu progresser depuis des années.
Bravo et encore merci à ceux qui prennent de leur temps pour faire avancer des gens comme moi !