Problème de vérification de date

Bonjour le forum,

J'ai le bout de code suivant inspiré par la FAQ dans une textbox, afin d'avoir une date bien formatée

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TxtDateReception_Change() Dim Valeur As Byte '------ Fonction qui permet d'ajouter les "/" après le jour et le mois txtDateReception.MaxLength = 10 'nb caractères maxi autorisé dans le textbox Valeur = Len(txtDateReception) If Valeur = 2 Or Valeur = 5 Then txtDateReception = txtDateReception & "/" If Valeur = 10 Then txtDateReception = CDate(txtDateReception) End Sub

---

Pour vérifier que l'utilisateur ne rentre pas une date dans le futur, j'ai écrit ce bout de code test:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)   If txtDateReception.Value > Date Then MsgBox "C'est supérieur." Else MsgBox "C'est inférieur." End If End Sub

---

Le problème est que j'ai beau rentrer 01/01/1900, j'ai toujours une msgbox "C'est supérieur". Et je ne sais pas pourquoi...

Bonjour,

Pourquoi ne pas utiliser une fonction de comparaison de date ?
Voici le code tout prêt :

Code:

---

1 2 3 4 5 6 7

Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If DateDiff("d", TxtDateReception.Value, Date) < 0 Then MsgBox "C'est supérieur." Else MsgBox "C'est inférieur." End If End Sub

---

Précision:
d=day=jour :p
Sinon, écris Datediff dans l'éditeur puis F1 pour avoir toutes les infos sur les paramètres. :ccool:

Bonjour,

Je n'avais pas pensé à passer par la fonction DateDiff. :oops:
Effectivement, elle fonctionne, merci.

Par contre, je ne sais toujours pas pourquoi ma comparaison ne fonctionnait pas. 8O

bonjour,

parce que tu aurais du faire cela

Code:

---

1 2 3 4 5 6 7 8

Private Sub txtDateReception_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'a ce niveau on compare deux date et non pas une date et du texte If cdate(txtDateReception.Value) > Date Then MsgBox "C'est supérieur." Else MsgBox "C'est inférieur." End If End Sub

---

et faites toujours bien attention avec les valeurs implicites.

Citation:

---

Envoyé par neiluj26

Par contre, je ne sais toujours pas pourquoi ma comparaison ne fonctionnait pas. 8O

---

vois ceci ;)

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier

Merci pour les réponses. C'est curieux, je passais pourtant la valeur de ma textbox en date.

Code:

---

If Valeur = 10 Then txtDateReception = CDate(txtDateReception)

---

Bon, je vais lire le tuto et en apprendre plus.

Merci.

re,

juste pour info, lorsque tu fait ça tu lui dis :

"converti la date dans la text box en date et remet la dedans"...

c'est ce qu'il fait... mais dans la textbox... on ne trouve que du contenu "string"... donc ta date une fois remise en place est reconvertie en string...

euh... comment ça je suis pas clair!!!

;)

Ah oui mais non, mais là je proteste, je m'insurge. C'est de la faute d'Excel. :P

Merci de l'explication. C'est très clair.