Bonjour à tous et bonne année 2020,

Je rencontre un soucis de date avec les instructions ci-dessous :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim DateFin as date
 
DateFin=datevalue(2019,12,31)
 
Sheets("Feuil1").Cells(J, 8) = WorksheetFunction.SumIfs(Sheets(NomFeuille).Range("E6:E65"), Sheets(NomFeuille).Range("B6:B65"), "<=" & DateFin )
Sheets("Feuil1").Cells(J, 8) = WorksheetFunction.SumIfs(Sheets(NomFeuille).Range("E6:E65"), Sheets(NomFeuille).Range("B6:B65"), "<" & DateFin +1)
La première me retourne un résultat à 0 Alors que la deuxième fonctionne très bien. Y aurait il un problème avec les date de fin de mois ou d'années, car j'avais déjà remarqué ce problème sur des dates de fin de mois