Formule sommeprod en VBA

AHTOUATI -  
Gyrus Messages postés 3360 Statut Membre -
Bonjour,

j'ai une formule la suivante
=SOMMEPROD((A1:A19>=D6)*(A1:A19<=E6)*B1:B19)
et je la traduire en VBA

TEXTE DATE 1
TEXTE DATE 2
TEXTE TOTAL ( total des sommes entre deux dates)
merci pour votre aide

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Deux possibilités :

    Range("H1") = Application.SumIfs([B1:B19], [A1:A19], ">=" & CDbl([D6]), [A1:A19], "<=" & CDbl([E6]))

    ou

    Range("H1") = Evaluate("SUMPRODUCT((A1:A19>=D6)*(A1:A19<=E6)*B1:B19)")

    A+
    0