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
 

Pierrot93

XLDnaute Barbatruc
Re : Souci de comparaison de date

Bonjour,

essaye peut être avec la fonction "CDate" :
Code:
TextBox5.Value = DateAdd("yyyy", 1, CDate(TextBox4))
bon après midi
@+
 

Pierrot93

XLDnaute Barbatruc
Re : Souci de comparaison de date

Re,

cette instruction également :
Code:
If CDate(DateJour1) >= Cdate(Datejour2) Then
 

poussy67

XLDnaute Occasionnel
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
 

Discussions similaires


Haut Bas