Discussion :

[alexbabey]

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

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

Le code ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

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

[alexbabey]

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..

[wilfried_42]

re:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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