VBA : COUNTIFS et argument date

Bonjour à toutes et tous !

J'ai besoin de calculer le nombre de jours présents dans une liste entre deux dates.

La formule NB.SI.ENS me donne le bon résultat.

Si je transpose en Vba en utilisant WorksheetFunction.CountIfs, j'ai la valeur 0 comme résultat !

Le code est le suivant :

Function Test_Jours(Dat_deb As Date, Date_fin As Date)

Test_Jours = WorksheetFunction.CountIfs(Range("JrsTest"), ">=" & Dat_deb, Range("JrsTest"), "<=" & Date_fin)

End Function

Il me serait agréable que vous puissiez m'aider ....... et je vous en remercie par avance !

Bonsoir,

A tester, avec la sélection de la plage en plus

Function Test_Jours(Champ As Range, Dat_deb As Date, Date_fin As Date) As Long
' champ= plage - Date Debut - Date Fin
    For Each C In Champ
        If C >= Dat_deb And C <= Date_fin Then
            temp = temp + 1
        End If
    Next C
Test_Jours = temp
End Function

=Test_Jours(JrsTest;F4;F5)

Bonsoir,

Essaie ainsi :

Function Test_Jours(Dat_deb As Date, Date_fin As Date)
    Test_Jours = WorksheetFunction.CountIfs(Range("JrsTest"), ">=" & CLng(Dat_deb), _
     Range("JrsTest"), "<=" & CLng(Date_fin))
End Function

Cordialement.

Mille mercis à vous deux !

Avec une mention spéciale pour Mferrand pour sa solution que je vais retenir. Mes recherches m’avaient orienté vers un souci de format date, mais je n’avais pas trouvé la solution !

Belle journée à tous.