Discussion :

[ptitdragon_eric]

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

[pijaku]

Bonjour,

Tu déclares une variabloe DateFin et utilises une variable FinEx, ça vient peut-être de là...

[ptitdragon_eric]

J'ai corrigé le problème de variable, mais le problème demeure.

LA première ligne donne un résultat à zéro. La deuxième donne le résultat attendu.

[pijaku]

Essaie donc cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub essai()
Dim DateFin As Date
  DateFin = DateSerial(2019, 12, 31) 'DATESERIAL
  Sheets("Feuil1").Cells(J, 8) = WorksheetFunction.SumIfs(Sheets(NomFeuille).Range("E6:E65"), Sheets(NomFeuille).Range("B6:B65"), "<=" & CLng(DateFin))
End Sub

[ptitdragon_eric]

Je viens de tester cette fonction. ça marche. Je te remercie, je ne connaissais pas.