Excel 2002 XP - Problème avec Isdate()

Bonjour,

Je vérifie qu'une donnée saisie dans une cellule est bien une date dans une procédure VBA avec la fonction Isdate().

Tout se passait bien jusqu'à ce qu'un utilisateur entre une date de la façon suivante : "20 08 08" au lieu de "20/08/08".

Le problème est que Isdate() laisse passer cette saisie qu'il a l'air de considérer comme une date valide par contre le contenu de la cellule est utilisé un peu plus loin dans une formule qui utilise la fonction Joursem() et là j'ai un beau #VALEUR!

Quelqu'un a t-il une idée pour empêcher les utilisateurs de saisir "20 08 08" ?

Merci

Cordialement

Sergio

Bonjour,

Je me suis déjà à maintes reprises suffisamment épuisé à essayer de convaincre que l'on ne se contentait pas de Isdate pour contrôler une saisie de date... en vain (malgré les nombreuses raisons exposées)...
Je vais donc ici me contenter du SEUL aspect que tu dénonces, sans même parler des autres (nombreux et pouvant avoir de facheuses conséquences) à nouveau :

Code:

---

1 2 3 4

toto = "20 08 08" If Not toto Like "##/##/##" Or Not IsDate(toto) Then MsgBox toto & " n'est pas accepté" End If

---

Salut Sergio63
ou tu transformes :

Code:

---

1 2 3

Sub test() If IsDate([A1]) And Not ([A1] Like "*/*") Then [A1] = CDate([A1]) End Sub

---

si A1 est reconnu comme une date, mais est du texte, on le transforme en date. Teste
A+

J'ai rajouté un test avec "like" et ça fonctionne :

Code:

---

1 2 3 4 5 6 7

If Not IsEmpty(Target.Value) And Not IsDate(Target.Value) Or Not Target.Value Like "##/##/####" Then ' Vérification que la donnée entrée est bien une date MsgBox ("Attention vous devez saisir une date valide ligne " & Target.Row) Range("F" & Target.Row).Select Else ...

---

Merci de votre aide

Cordialement

Sergio