Discussion :

[vincedu74]

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 !

[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

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).

[vincedu74]

Super merci beaucoup...

Cela fonctionne !!!