Discussion :

[mlrdeni]

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 :

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

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 :

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

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 :

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

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.

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

[Invité]

je suis tout à fait d'accord.

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 :

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

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

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

Code :

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

Dim LDATE as Date

ça revient a faire:

Code :

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

 Cells(x, 3) = datebutée

LDATE n'est pas utile!

Code :

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

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

[mlrdeni]

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 :

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

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.

[Invité]

Code :

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

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 :

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

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 :

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

 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 :

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

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.

[mlrdeni]

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 !