Condition avec comparaison de dates

Bonjour,

Ultra débutante, je ne trouve pas la solution à mon problème. J'espère que je saurai m'exprimer correctement afin que vous puissiez me répondre.

Dans un userform, je demande à l'utilisateur d'entrer une date dans une textbox. Je souhaite :
1. Vérifier que l'entrée est bien une date. Et si oui, la passer sous le format jj/mm/aaaa.
2. Vérifier que la date est postérieure ou égale à la date de la case B2 (feuille 2).

J'ai réussi à trouver le code pour la partie 1. Mais impossible de modifier ce code pour intégrer ma 2ème condition.

Voici ce que j'ai écrit pour le moment :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TxtDateDeDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TxtDateDeDebut = vbEmptyString Then Exit Sub   If IsDate(TxtDateDeDebut) Then TxtDateDeDebut = Format(TxtDateDeDebut, "dd/mm/yyyy") Else MsgBox "Merci d'indiquer une date valide", vbOKOnly End If   End Sub

---

Merci d'avance pour votre aide et votre indulgence ;)

Bonjour,

Citation:

---

Envoyé par bibi84240

Mais impossible de modifier ce code pour intégrer ma 2ème condition.

---

Pour faire ton test tu peux utiliser quelque chose comme ceci

Code:

---

1 2 3 4 5

If datevalue(TxtDateDeDebut) >= [B2].value Then ' ok Else MsgBox "date invalide", vbOKOnly End If

---

C'est parfait !!!
Un immense merci et sûrement à très bientôt !

Hum ... j'avais prévenu que je reviendrai très vite :oops:

Donc voici le code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TxtDateDeDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TxtDateDeDebut = vbEmptyString Then Exit Sub   If IsDate(TxtDateDeDebut) Then TxtDateDeDebut = Format(TxtDateDeDebut, "dd/mm/yyyy") Else MsgBox "Merci d'indiquer une date valide", vbOKOnly TxtDateDeDebut = "" End If   If DateValue(TxtDateDeDebut) <= [M2].Value Then MsgBox "date non valide", vbOKOnly TxtDateDeDebut = "" End If   End sub

---

Si je rentre une date dans la textbox, le format est bien transformé en jj/mm/aaaa. Nickel.
Si je rentre une date antérieure à ma date en M2, j'ai bien un message d'erreur "date non valide". Re-nickel.
Si je rentre des caractères autres qu'une date (exemple, une série de lettres), j'ai bien un message d'erreur "Merci d'indiquer une date valide". Re-re-nickel.
Le hic, c'est quand je ferme ce dernier message, cela plante "erreur d’exécution '13', incompatibilité de type".

Re-merci pour votre aide précieuse.

Bon il suffisait que je réfléchisse un tout petit peu ... et de demander d'arrêter la procédure si l'entrée n'était pas au format date :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub TxtDateDeDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TxtDateDeDebut = vbEmptyString Then Exit Sub If IsDate(TxtDateDeDebut) Then TxtDateDeDebut = Format(TxtDateDeDebut, "dd/mm/yyyy") Else MsgBox "Merci d'indiquer une date valide", vbOKOnly TxtDateDeDebut = "" Exit Sub End If If DateValue(TxtDateDeDebut) <= [M2].Value Then MsgBox "date non valide", vbOKOnly TxtDateDeDebut = "" End If End sub

---

Bon, je vais tenter de réfléchir un peu mieux à mes problématiques avant de vous solliciter pour rien. Mais à très bientôt quand même ;)