Bonjour Tracor, le Forum
Imaginons en Feuille "Sheet1" en B1 la Date de Départ (inclusive) et en B2 la Date d'Arrivée... En Feuille "Sheet2" dans la colonne "A" les valeurs Dates à scanner...
Voici ce que çà donnerait par VBA :
Option Explicit
Sub CountDateFromTo()
Dim DateFrom As Date
Dim DateTo As Date
Dim Tableau As Variant
Dim DateInclusiveCount As Integer, i As Integer
With Sheets("Sheet1")
DateFrom = .Range("B1")
DateTo = .Range("B2")
End With
Tableau = Sheets("Sheet2").Range("A1:A1000") 'à adapter ...
For i = 1 To UBound(Tableau)
If Tableau(i, 1) >= DateFrom And Tableau(i, 1) <= DateTo Then
DateInclusiveCount = DateInclusiveCount + 1
End If
Next i
MsgBox DateInclusiveCount & " entrées sont incluses entre " & DateFrom & " et " & DateTo
End Sub
Bon Après Midi
@+Thierry