Problème de date / Comparaison
Bonjour à tous, je n'arrive pas à comparer des dates. Le format des cellules comparées est pourtant bien un format date !
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| dtedeb = Format(DateSerial(Yearboxbis.Value, 4, 1), "dd_mmmm_yyyy")
dtefin = Format(DateSerial(Yearplus1.Caption, 4, 1) - 1, "dd_mmmm_yyyy")
For N = 4 To LastLig
datea = IsDate(Range("F" & N))
dateb = IsDate(Range("G" & N))
If datea And CDate(Range("F" & N)) < dtedeb Then
MsgBox (Range("F" & N))
MsgBox (dtedeb)
If datea Then
Tb1(4) = Tb1(4) + 1
End If
If CDate(Range("G" & N)) <= CDate(Range("F" & N)) Then
Tb2(4) = Tb2(4) + 1
End If
If dateb And CDate(Range("G" & N)) < CDate(Range("F" & N)) Then
Tb3(4) = Tb3(4) + 1
End If
End If |
Est ce que quelqu'un peut m'indiquer mes erreurs svp... ? ca compare n'importe comment !!!!:?:calim2:
en vous remerciant !