sumproduct

[fred94000]

bonjour le forum et tout les excel(leurs)
je cherche a transformer cet formule en vba

=SOMMEPROD((MOIS(BD!$B$2:$B$65536)=1)*(BD!$G$2:$G$65536="69")*(ANNEE(BD!$B$2:$B$65536)=$B$1))

dans une autre feuille intitulé "Recap" en cellule C3

sub recap()
Range("c3") = Application.Evaluate("SUMPRODUCT((month(BD!$B$2:$B$65536)=1)*(year(BD!$B$2:$B$65536=(a1))*(ligne_tableau=" & 69 & ")")
end sub

cela me retourne #Valeur
dans l'attente merci

 

[fred94000]

Re : sumproduct

Bonjour le forum

je m'aperçois que ma question reste sans réponse, alors pour une explication plus claire,
je vous joint un fichier Lambda que j'adapterais.
dans l'attente
merci

 

[Misange]

Re : sumproduct

Bonjour
MsgBox Evaluate("SumProduct(ventes, prix)")

 

[fred94000]

Re : sumproduct

bonjour,
je crois m' être mal exprimé.
le tableau se trouvant dans la feuille CALCULATE me permet de rechercher par la fonction sommeprod la somme des valeur dans la feuil1 en fonction des critères.
ce que souhaiterais c'est de faire la même chose mais en VBA par un click bouton.

 

[Misange]

Re : sumproduct

Oui.
mais que veux tu faire avec le bouton ? Il va faire le calcul et puis il fait quoi ?
Si c'est pour l'afficher dans lma cellule tu écris
range("A2")=Evaluate("SumProduct(ventes, prix)")
si c'est pour l'afficher dans une boite de dialogue tu écris ce que j'ai mis. Je t'ai donné l'écriture de ta formule en VBA.