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

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

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

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))]