Tester la date

Version imprimable

Tester la date

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:

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:

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.

17/12/2014, 12h17
Invité

Bonjour,

Code:

If Cells(1, 1).NumberFormat = "m/d/yyyy" Then MsgBox "Oui"

http://www.developpez.net/forums/d14...x/#post8051606
17/12/2014, 13h01
electrons

Bonjour rdurupt,

Toujours fidèle au poste...

Merci pour ta réponse, je suis allé voir la discussion renseignée mais je n'ai pas obtenu les info nécessaires si ce n'est qu'il faut utiliser le format date international....

Lorsque je mets ton code :

Code:

If Cells(7, 4).NumberFormat = "m/d/yyyy" Then MsgBox ("Oui")

le msg "Oui" s'affiche, mais j'aimerais avoir le format "dd/mm/yyyy" ou "d/m/yyyy"
j'ai bien vérifié le format de la cellule, il est bien "Date (*14/03/2001)". Si je mets le contenu dans une variable de type Date, cette variable contient la date : 15/1/2014 alors que la date entrée au départ dans la cellule "D7" est "1/15/2014".
Faut-il passer par une string et décomposer le contenu en vérifiant le jour en fonction du mois (et gestion des années bissextiles)....?

Merci pour ton d'avance pour ton aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Debug.Print DateAmFr("1/15/2014")
End Sub
 
Function DateAmFr(D) As String
Dim T
DateAmFr = D
If InStr(1, DateAmFr, "/") = 0 Then Exit Function
T = Split(DateAmFr, "/")
DateAmFr = T(2) & "-" & Format(T(0), "00") & "-" & Format(T(1), "00")
End Function

Bonjour.

C'est vrai que ce comportement est bizarre.
Tu peux essayer de pallier le pb avec
Code:

1 2 3 4 5 6 7 8 Set oRng = ThisWorkbook.Worksheets("CLInit").Range("D7") If IsDate(oRng.Value) Then oRng.Value = Format(oRng.Value, "dd/mm/yyyy") Else oRng.Select MsgBox "La date n'est pas correcte" End If
Cordialement,

Pgz

17/12/2014, 13h56
electrons

Merci rdurupt,

Je vais me baser sur cette fonction pour tester la saisie de la date.

Bonne journée:merci:

CELUI QUI AJOUTE DE NOUVELLES CONNAISSANCES AUX ANCIENNES EST LE VERITABLE ENSEIGNANT

CONFUCIUS
17/12/2014, 14h16
electrons

Bonjour pgz,

Merci pour ton code mais si je mets le "3/15/2014" dans ma cellule "D7",
lorsqu'on arrive à ton code :

Code:

oRng.Value = Format(oRng.Value, "dd/mm/yyyy")

La date dans la cellule est changée en "15/3/2014", il y a inversion mois et jours,
Si je rentre "25/12/2014", la date reste bien "25/12/2014" après le code (pas d'inversion)????
Si je mets "31/15/2014", j'ai le message d'erreur (Erreur 13: incompatibilité de type)
à la ligne

Code:

DateNaissance = Worksheets("CLInit").Cells(7, 4).Value

ou DateNaissance est déclarée "dim ... as date"

Voilà, je vais en resté là, je vais décomposer la date et faire une fonction plus complète.

Merci quand même pour ton aide.
17/12/2014, 14h56
Invité
si c'est ton code que écrit dans la cellule toujours au format international!
c'est invariable toujours, toujours,toujours...
Code:

1 2 ActiveCell.NumberFormat = "General" ActiveCell = Format("15/03/2014", "yyyy-mm-dd")
17/12/2014, 17h35
Invité

Salut,

Il y a un KB la-dessus. Avoir si ça résoud le problème. http://support.microsoft.com/kb/241728/fr

EDIT:
Oups, c'est pas le même finalement.