Souci de comparaison de date

poussy67

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas