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 : Sélectionner tout - Visualiser dans une fenêtre à part
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