Souci de comparaison de date

[poussy67]

J'ai un petit souci de formule, à l'aide d'un USF quand je sélectionne une référence, j'ai 2 textbox😀atejour1 qui contient la date d'aujourd'hui, la Datejour2 qui contient une date aléatoire qui a été saisi sur une feuille. J'essaye de d'appliquer une VBA qui doit m'afficher un message " date expirée" si la date est égale ou inférieur à la date d'aujourd'hui. je peux ajouter une année suplémentaire. J’utilise cette formule:

Private Sub Datejour2_Change()
'----------------------------------------------------------
If DateJour1 >= Datejour2 Then
Confirm = MsgBox("Date expirée", _
vbQuestion + vbYesNo, "Message d'alerte")
'--------------
If Confirm = vbYes Then
TextBox4 = Date
TextBox5.Value = DateAdd("yyyy", 1, TextBox4)
Else

End If
'--------------
End If
'---------------------------------------------------------
End Sub

et cela ne marche pas et pourquoi? je ne sais pas, j'ai essayé plusieurs manière sans résultat et pour cela que je fais appelle au pro d'Excel en remerciant d'avance pour votre aide.

Cdt Poussy67

 

[Pierrot93]

Re : Souci de comparaison de date

Bonjour,

essaye peut être avec la fonction "CDate" :

TextBox5.Value = DateAdd("yyyy", 1, CDate(TextBox4))

bon après midi
@+

 

[Pierrot93]

Re : Souci de comparaison de date

Re,

cette instruction également :

If CDate(DateJour1) >= Cdate(Datejour2) Then

 

[poussy67]

Re : Souci de comparaison de date

Bonjour Pierrot93

Merci beaucoup d'avoir pris du temps pour mon problème, j'ai testé et ça fonctionne tres bien

Bonne journée et encore merci