WorksheetFunction. SumProduct vba

Version imprimable

14/06/2008, 19h03
alsimbad

WorksheetFunction. SumProduct vba
Bonjour tt le monde
je souhaiterai transcrire en vba une formule sommeprod
en excel la formule donne
Code:

1 2 =SOMMEPROD(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))
et fonctionne
en vba, j'ecris
Code:

1 2 G = WorksheetFunction.SumProduct((B1:b1000=var1)*(e1:e1000=var2)*(g1:g1000))
et j'obtiens un message d'erreur
: attendu parenthese sur les deux points du ((B1:b1000=var1)
je ne comprend pas mon erreur. si quelqu'un passe par là, merci d'avance
ps:
je viens d'essayer

Code:

G = WorksheetFunction.Evaluate("SumProduct((B2:b1000=var1)*(e2:e1000=var2)*(g2:g1000))")

comme a écrit pierre fauconnier mais ça marche pas non plus :cry:
ps bis
en mettant des guillemets, il reconnais la fonction
Code:

1 2 G = WorksheetFunction.SumProduct("=((B2:b1000=var1)*(e2:e1000=var2)*(g2:g1000))")
mais j'ai erreur d'execution 1004, impossible de lire la propriété sumproduct de la classe worksheetfunction
14/06/2008, 20h10
galopin01

bonjour,
l'idée de base c'est de sortir var1 et var2 des guillemets :

Code:

G = WorksheetFunction.SumProduct("(B2:b1000=" var1 ")*(e2:e1000="var2")*(g2:g1000)")

après je ne sais pas... Evaluate ou pas ???
A+
14/06/2008, 20h20
alsimbad
non. je te remercie, mais ce n'est pas la solution
effectivement, si je n'arrive pas a calculer directement, il faudra que j'insere cette formule dans une cellule, et pour le coup, j'aurais besoin de sortir var1 et var2 , et je n'y arrive pas non plus. je suis preneur des deux solutions soit
Code:

1 2 Range("H522").Formula = "=SUMPRODUCT((B2:b1000=var1)*(e2:e1000=var2)*(g2:g1000))"
en prenant en compte les variables, pour le moment ça marque var1 dans la formule et en concatenat avec des guillemets, il n'accepte pas
soit
Code:

1 2 G = WorksheetFunction.SumProduct("=((B2:b1000=var1)*(e2:e1000=var2)*(g2:g1000))")
mais qui fonctionne
merci encore
14/06/2008, 20h40
ouskel'n'or

Je n'ai pas compris à cette forme "=var1" et "= var2", (que je ne connais pas :( ) mais la syntaxe toute simpble en VBA serait plutôt celle-ci...

Code:

G = Application.WorksheetFunction.SumProduct([B2:b1000], [e2:e1000],[g2:g1000])
14/06/2008, 20h43
galopin01

D'abord mea culpa : pour sortir les variables il faut
" & var1 & "...blabla "
sur la syntaxe, si tu veux insérer ta formule dans une cellule, dans ce cas ça devrait donner :

Code:

Range("H522").Formula = "=SUMPRODUCT((B2:b1000=" & var1 & ")*(e2:e1000=" & var2 & ")*(g2:g1000))"

(Vérifié)

si tu veux du tout VBA et dans ce cas ça devrait donner ququchose comme :

Code:

G = WorksheetFunction.SumProduct("(B2:b1000=" & var1 & ")*(e2:e1000=" & var2 & ")*(g2:g1000)")

et là j'ai encore une erreur 1004. Je vais encore gratter dessus pour voir si je trouve le pb dans ce dernier cas...
A+
14/06/2008, 20h49
galopin01

Citation:

Envoyé par ouskel'n'or

Je n'ai pas compris à cette forme "=var1" et "= var2", (que je ne connais pas :( ) mais la syntaxe toute simpble en VBA serait plutôt celle-ci...

Code:

G = Application.WorksheetFunction.SumProduct([B2:b1000], [e2:e1000],[g2:g1000])

Oui mais là il est sur une forme un peu particulière du SOMMEPROD : il peut bien "variabiliser" une des valeurs de la condition : je l'ai testé sur une formule identique. Mais ça ne marche que dans le cas ou tu écris une formule :
Range("H522").Formula =... comme cité précédemment.
Je n'ai pas encore trouver le joint en tout VBA.
A+
14/06/2008, 21h39
galopin01

:cry:
Bon en fait je n'arrive même plus à faire fonctionner ma première formule même si elle s'affiche correctement dans la feuille de calcul !
quand à faire marcher ce :furieux: de worksheetfunction...
:oops:
Ok... je retourne à mes billes !
A+

Euh...
Pourquoi ne pas contourner le problème :
un truc comme ça ne conviendrait pas ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim A As Range, B As Range, C As Range, var1, var2
var1 = 2
var2 = 3
Set A = Range("B2:B1000")
Set B = Range("E2:E1000")
Set C = Range("G2:G1000")
For i = 1 To A.Count
k = k + (A(i) = var1) * (B(i) = var2) * C(i)
Next
MsgBox k
End Sub

A+

14/06/2008, 22h04
fring

Bonjour tlm,

Pour intégrer une variable dans la syntaxe, j'en suis là --> :mur:

Sinon pour reprendre la formule Excel

Code:

=SOMMEPROD(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))

en VBA

Code:

MsgBox [SumProduct(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))]
14/06/2008, 22h39
fring

Re,

A force de :mur:

Code:

MsgBox Application.Evaluate("SUMPRODUCT((B2:B1000=""" & var1 & """)*(E2:E1000=""" & var2 & """)*(G2:G1000<>""""))")

Bravo a Fring et merci aussi a galopin et ouskel
Code:

1 2 3 4 G = [SumProduct(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))] et MsgBox Application.Evaluate("SUMPRODUCT((B2:B1000=""" & var1 & """)*(E2:E1000=""" & var2 & """)*(G2:G1000<>""""))")
fonctionnent
la seuxieme donne le nombre d'occurence, mais en enlevant le =""" de la troisieme parenthese, on a le resultat

Code:

MsgBox Application.Evaluate("SUMPRODUCT((B2:B1000=""" & var1 & """)*(E2:E1000=""" & var2 & """)*(G2:G1000))")

merci a tous et bon dimanche

14/06/2008, 23h36
alsimbad
quand même , avant de mettre un résolu, j'aimerai bien comprendre l'utilité ou le sens de ces crochets
Code:

1 2 G = [SumProduct(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))]
15/06/2008, 01h18
ouskel'n'or

Les crochets remplacent les guillemets pour définir un range ou une feuille.
C'est tout. Mais dans l'exemple que tu cites, tu ne pourrais pas utiliser de variables. Par contre, avec les guillements (exemple de fring) tu peux ;)
Bonne nuit
15/06/2008, 06h21
alsimbad

ok alors, merci et bon dimanche a tous