@+Thierry

Re Tracor

Et bien qu'à celà ne tienne .... !!! (Bis Répetita !)

Option Explicit
Option Compare Text 'Attention pour les MAJ / MIN

Sub CountDateFromTo()
Dim DateFrom As Date
Dim DateTo As Date
Dim Tableau As Variant
Dim DateInclusiveCount As Long, i As Long

With Sheets("Sheet1")
DateFrom = .Range("B1")
DateTo = .Range("B2")
End With

Tableau = Sheets("Sheet2").Range("A1:C50000") 'Attention dimensionnement sur plage "A" à "C"

For i = 1 To UBound(Tableau)

If Tableau(i, 1) >= DateFrom And Tableau(i, 1) <= DateTo Then
If Not Tableau(i, 2) = "Cloturé" And Not Tableau(i, 3) = "client absent" And Not Tableau(i, 3) = "Procédure" Then
DateInclusiveCount = DateInclusiveCount + 1
End If
End If
Next i

With Sheets("Sheet1")
.Range("B3") = DateInclusiveCount
.Range("C3") = "Nombre d'entrées inclusives"
End With
End Sub


NB attention respecter Colonne B = Tableau(i, 2) et Colonne C = Tableau (i, 3)

Bon Aprèm
@+Thierry