Extraction Donnée selon date

salut tlmonde

je travaille sur un userform et je bloque .

voici mon problème

j ai une bdd excel de 12 colonne ( 2 entre elle c'est au format date , date entre et date sortie)

a laide de userforme j 'ai deux textbox date( dapart - et fain)

j'aimeris axtraire des donées selon ls deux textbox avac condition, j'explique.

ce que je voudrais si que j'obtiens ceci selon les deux textbox(date):

date départ = 01/07/2021 date fin = 30/07/2021

nbr items avant date départ = 02 (puisque on compte 01 item sortie après 01 /07 c'est ce item est sortie avant ou égale01/07 on aura nbr items avant date départ = 01 )

nbr items entrée entre date départ - date fin = 03 (puisque on compte 3 item entrée entre 01 - 30/07)

nbr items sortie entre date départ - date fin = 02 (puisque on compte 02 item sortie entre 01 - 30/07)

nbr items en stock = 03

D1 = CDate(BRQ_DATE) ')))
D2 = CDate(BRQ_DATE_F) ')))

'###################################################################"
'#
'# FFR  nombre véhicule entre en fouriere
'# SOR nombre véhicule sortie de la fouriere
'# EA_FR nombre véhicule entre en fouriere avant  date depart 
'# NS_FR nombre véhicule entre en fouriere avant  date depart et non sortie
'###################################################################

With Sheets("FOURIERE")
' #################################################################

        dlig = .Range("A" & Cells.Rows.Count).End(xlUp).Row
        For F = 5 To dlig
 If CHK_FOR_PERIO.Value = True Then
     If FF.Range("B" & F) >= (D1) And FF.Range("B" & F) <= (D2) Then
         FFR = FFR + 1
         End If
     If FF.Range("I" & F) >= (D1) And FF.Range("I" & F) <= (D2) Then
         SOR = SOR + 1
         End If

     If (CDate(FF.Range("B" & F))) < D1 And (CDate(FF.Range("I" & F))) = D1 Then
         EA_FR = EA_FR + 1
         End If
     If IsEmpty(FF.Range("I" & F)) = False Then
         NS_FR = NS_FR + 1
        End If
        'End If
 End If

merci

Bonjour fouzy

@+

salut BrunoM45

oui un fichier expliquera bien mon problème....heureusement que après des multiples essayes en essayant de comprendre le ">" & "<" que j'avoue que c'est parmi mes faiblesse.. j'ai réussi a régler ce problème avec ce code dont je le poste ici.

dlig = .Range("A" & Cells.Rows.Count).End(xlUp).Row
    For F = 5 To dlig
            If (.Range("B" & F).Value) >= D1 And (.Range("B" & F).Value) <= D2 Then
              FFR = FFR + 1
              Else
            If (.Range("B" & F).Value) < D1 And ((.Range("I" & F)) >= D1 Or (.Range("I" & F)) = "") Then
              NS_FR = NS_FR + 1
            End If
            End If
            If (.Range("I" & F)) >= D1 And (.Range("I" & F)) <= D2 Then
            SOR = SOR + 1

            End If
    Next

merci encore ....