Problème de date / Comparaison

Version imprimable

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 !

19/04/2017, 17h48
Pierre Fauconnier

Salut

Range("F" & N).value est une date (puisque testé via datea), dtedeb est du texte (puisque transformée en texte par FORMAT). Tu compares donc des pommes et des poires ;)

Il serait, je pense, plus indiqué d'utiliser

Citation:

dtedeb = DateSerial(Yearboxbis.Value, 4, 1)

Au passage, tu n'as pas besoin du CDate(...), mais il serait plus correct d'utiliser Range("F" & N).Value (même si ce n'est pas obligatoire).
19/04/2017, 17h54
vincedu74

Super merci beaucoup...

Cela fonctionne !!!