Histoire de date

Salut le forum,

Je souhaite comparer deux dates cependant, quand dans mon code, la date d’aujourd’hui est plus petite que celle d’il y a un moi

Je vous laisse le code :

If Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy") < Format(DateSerial(Year(Date), 5, 18), "dd/mm/yyyy") Then

End If

Si vous avez une piste car je n’y comprend rien :oops: merci bcp

Bonjour djgreg971,

je crois que tu devrais essayer le même test sans les 2 formats :

If DateSerial(Year(Date), Month(Date), Day(Date)) < DateSerial(Year(Date), 5, 18) Then
End If

ainsi, tu compares juste les numéros de série des 2 dates, et pas le retour formaté qui est du texte !

dhany

Bonjour,

Pour commencer :

If Date < DateSerial(Year(Date), 5, 18) Then
        '
        '
    End If

Bonjour à tous !

Cela fonctionnerait avec un format "yyyy/mm/dd" qui ferait coincider ordre alphabétique et ordre numérique... mais pourquoi vouloir compliquer !

Merci pour vos retour.

J’ai essayé avec le serial avec le format, ce qu je ne comprend pas c’est pourquoi la condition est vrai alors qu’elle dois être fausse!

La date d’aujourd’hui 02/06 est plus grande que le 18/05 et pourtant il me dit que la condition est vrai

C’est bizarre!

Tu as essayé quoi ?

En tant que date, 02/06 est supérieur à 18/05.

En tant que texte "02/06" est inférieur à "18/05" !

J’ai essayé la condition mis dans le code plus haut.

Je suppose que ce sont des dates et non du texte.

02/06/2018 et 18/05/2018

J’ai enlevé le format et essayé dateserial j’ai le même résultat

Bonjour djgreg,

Pour t'aider davantage, tu devrais joindre ton fichier (sans données confidentielles).

Tu peux utiliser le bouton « Ajouter des fichiers » (sous la fenêtre d'édition du post).

dhany

Teste donc (code remis par Jean-Eric) :

Sub Test()
    MsgBox Date < DateSerial(Year(Date), 5, 18)
End Sub

Tu verras ce que te renvoie le message...

Bonjour

Essaie

If Date < CDate(DateSerial(Year(Date), 5, 18)) Then

Cordialement

Bonjour à tous, La solution d’Amadeus fonctionne merci à tous.

Bonjour,

DateSerial renvoie une date. Il n'est utile de la convertir en date avec Cdate.

Cdlt.

Tout à fait !

presque « Tout à fait ! » : Jean-Eric a oublié un mot et aurait dû écrire : « Il n'est pas utile de la convertir en date avec Cdate. »