Formule sommeprod en VBA

AHTOUATI -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   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