Application.Evaluate avec Sumproduct renvoi à 1 et 0 ??

Bonjour,

Je voudrais inclure une seconde condition dans ma formule ci-dessous.

Malheureusement le résultat affiché dans la cellule correspond au nombre de "vrai" alors que je voudrais obtenir la somme. (soit 1 245 dans mon exemple (en fichier joint).

Sub baba()

Range("E6").Value = Application.Evaluate("SUMPRODUCT(((A1:A5>1300000))*(C1:C5>0))")

End Sub

Est-ce que quelqu'un aurait la solution à ce problème svp ?

Je vous remercie.

Bonjour,

Essaie ainsi :

Sub baba()
Range("E6").Value = Application.Evaluate("SUMPRODUCT(((A1:A5>1300000))*(C1:C5>0),C1:C5)")
End Sub

bonjour Jean-Eric,

ça fonctionne merci beaucoup et bonne journée !