Discussion :

[alsimbad]

Bonjour tt le monde
je souhaiterai transcrire en vba une formule sommeprod
en excel la formule donne

Code :

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

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 :

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

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 :

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

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

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

Code :

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

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

[galopin01]

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

Code :

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

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

après je ne sais pas... Evaluate ou pas ???
A+

[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 :

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

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 :

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

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

mais qui fonctionne
merci encore

[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 :

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

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

[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 :

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

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 :

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

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+

[galopin01]

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 :

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

    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+

[galopin01]

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

Ok... je retourne à mes billes !
A+

[galopin01]

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

Code :

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

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+

[fring]

Bonjour tlm,

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

Sinon pour reprendre la formule Excel

Code :

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

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

en VBA

Code :

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

MsgBox [SumProduct(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))]

[fring]

Re,

A force de

Code :

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

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

[alsimbad]

Bravo a Fring et merci aussi a galopin et ouskel

Code :

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

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 :

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

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

merci a tous et bon dimanche

[alsimbad]

quand même , avant de mettre un résolu, j'aimerai bien comprendre l'utilité ou le sens de ces crochets

Code :

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

1
2
 
 G = [SumProduct(($B$2:$B$1000=$B$509)*($E$2:$E$1000=$E$509)*($G$2:$G$1000))]

[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

[alsimbad]

ok alors, merci et bon dimanche a tous