Formule sommeprod en VBA

Fermé
AHTOUATI - 26 nov. 2016 à 15:52
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 26 nov. 2016 à 18:36
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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
26 nov. 2016 à 18:36
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