Souci de comparaison de date

poussy67

XLDnaute Occasionnel
J'ai un petit souci de formule, à l'aide d'un USF quand je sélectionne une référence, j'ai 2 textbox:Datejour1 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
 

Discussions similaires

Réponses
2
Affichages
871

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG