Bonjour à l'équipe,

J'ai beau chercher sur internet une solution pour vérifier si la date saisie dans une cellule au format "Date (*14/03/2001)", je ne trouve pas la fonction idéale. (La saisie de la date doit être sous la forme "JJ//MM/AAAA").

Actuellement, j'utilise le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function TestDate(DateEntree As Variant) As Boolean
 
TestDate = True
 
If Not IsDate(DateEntree) Then
    MsgBox "La date n'est pas correcete"
    TestDate = False
 
    Exit Function
End If
 
End Function
Je fais appel à cette fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
If TestDate(Worksheets("CLInit").Range("D7").Value) = False Then
    Range("D7").Select
    Exit Sub
End If
et si ma cellule "D7" contient "1/15/2014", ma fonction est = "True". alors que 15 mois n'est pas juste?

Auriez-vous une solution?

Merci d'avance.