Bonjour à tous, je n'arrive pas à comparer des dates. Le format des cellules comparées est pourtant bien un format date !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 !!!!


en vous remerciant !