VBA countifs <= à la date du jour

Bonjour,

Voilà plusieurs jours que je me bats avec ce probleme ... (voir fichier joint)

Je cherche à faire l'equivalent de cette formule mais en VBA:

=NB.SI.ENS(C17:C2000;"<="&AUJOURDHUI();H17:H2000;"NMA")

J'ai essayé plein de chose mais la je seche.

Voici ce que j'ai pour le moment

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

With Worksheets("CRM")

     If Range("F6") <> Application.WorksheetFunction.CountIfs(.Range(.Cells(17, 8), .Cells(.Rows.Count, 8).End(xlUp)), "NMA", .Range(.Cells(17, 3), .Cells(.Rows.Count, 3).End(xlUp)), "<=" & Date) Then
     Range("F6") = Application.WorksheetFunction.CountIfs(.Range(.Cells(17, 8), .Cells(.Rows.Count, 8).End(xlUp)), "NMA", .Range(.Cells(17, 3), .Cells(.Rows.Count, 3).End(xlUp)), "<=" & Date)
     End If

 Application.ScreenUpdating = True

End With
End Sub

Merci à celui qui pourra m'apporter une solution ...

je joint le fichier

Bonjour,

à tester,

vDate = CLng(Date)
aDates = Range(Cells(17, 3), Cells(Rows.Count, 3).End(xlUp)).Address
aPersonnes = Range(Cells(17, 8), Cells(Rows.Count, 8).End(xlUp)).Address

sFormule = "SUMPRODUCT((" & aDates & "<=" & vDate & ")*(" & aPersonnes & "=""NMA""))"
r = Evaluate(sFormule)

j'ai juste utilisé ta variable

vDate = CLng(Date)

et ca fonctionne super.

Merci bcp !!!