pb macro sumproduct IF

Bonsoir,

Un petit souci technique sur vba..

J'ai essayé de coder une fonction me permettant - en recherchant dans une plage de données - de calculer la moyenne des prix pondérée par les volumes, pour les clients répondants à certaines conditions:aie:

J'ai droit à un #Value quand j'essaye d'utiliser cette fonction..
Qqn a-t-il une idée..?:D

Le code ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function weighted_average_net_price(valcherch As Variant) As Single Dim somme As Single Dim sommeproduit As Single Dim boucle As Long somme = 0 sommeproduit = 0   For boucle = 3 To 9069 If Cells(boucle, 25).Value = valcherch Then somme = somme + Cells(boucle, 23).Value sommeproduit = sommeproduit + Cells(boucle, 23).Value * Cells(boucle, 21).Value End If Next boucle   weighted_average_net_price = sommeproduit / somme   End Function

---

bonjour

as tu tracé ta fonction ?
quand #Valeur apparait comme resultat d'une fonction personalisée, c'est souvent que la fonction peronalisée plante avant la fin

change tous le single par double, il m'etonnerait pas qu'il y ait une erreur 13.
Bonne soirée

ps : je ne comprend pas le necessite d'une telle fonction, SOMMEPROD (Fonction native), sait tres bien le faire et surement plus rapidement

Oki merci.

J'ai tracé la fonction comme tu me l'avais conseillé..

J'ai fait une erreur toute con.. j'ai oublié de préciser la feuille dans laquelle je souhaitais aller chercher les valeurs...

Merci pour ton aide!

PS: la fonction sommeprod disponible ne permet pas de tester une condition (comme le fait sommesi..), donc ne répond pas à mon besoin..

re:

Contrairement à somme.si qui ne peut executer qu'une condition, sommeprod peut en faire lui beaucoup plus

Code:

---

=SOMMEPROD(($Y$3:$Y$9069="VALEUR")*($U$3:$U$9069 * $W$3:$W$9069))

---

"VALEUR" peut prendre la reference d'une cellule exemple =$A$1
Si le plages se trouvent dans une autre feuille, il suffit de les nommer, voir avec des plages evolutives.

Cordialement