Discussion :

[bibi84240]

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

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bibi84240]

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

[bibi84240]

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

Donc voici le code final :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bibi84240]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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