Discussion :

[PtitGénie]

Bonjour à tous !

Mon problème est simple mais me prend la tête depuis quelques heures :
J'ai cette condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MsgBox Format(ActiveCell.Offset(0, 2).Value, "dd/mm/yyyy")
MsgBox Format(Evaluate("DATE(YEAR(TODAY()),MONTH(TODAY()) ,0)+1"), "dd/mm/yyyy")
If Format(ActiveCell.Offset(0, 2).Value, "dd/mm/yyyy") < Format(Evaluate("DATE(YEAR(TODAY()),MONTH(TODAY()) ,0)+1"), "dd/mm/yyyy") Then
            MsgBox "La date de la cellule est inférieure au début du mois en cours."

Mon "ActiveCell.Offset(0, 2).Value" contient "01/03/2012" (confirmé par la MsgBox), et idem j'ai bien la date de début de ce mois avec la MsgBox (01/05/2011).
Or il rentre dans ma condition et m'affiche le MsgBox "La date de début blabla...", pourtant 01/03/2012 n'est pas inférieur à 01/05/2011 !

Merci d'avance...

[tedo01]

Bonjour,
C'est normal, le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(ActiveCell.Offset(0, 2).Value, "dd/mm/yyyy") < Format(Evaluate("DATE(YEAR(TODAY()),MONTH(TODAY()) ,0)+1"), "dd/mm/yyyy") Then

ne compare pas les dates mais les chaînes de caractères, et "01/03/2012" est bien inférieure à "01/05/2011".

Pour comparer vraiment les dates, il faut utiliser la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ActiveCell.Offset(0, 2).Value < DateSerial(YEAR(Now), MONTH(Now), 1) Then

[pgz]

Bonjour.

Je suis d'accord avec tedo01.
Si tu tiens à utiliser Format, il faut choisir "yyyy/mm/dd", format ISO.

PGZ

[PtitGénie]

Merci beaucoup c'est nickel !