SommeProd en VBA

Bonjour,

Je suis dans un projet de traitement de données excel pendant mon stage.
Je dois utiliser le fonction excel SUMPRODUCT avec condition mais je veux l'utiliser dans une macro.

Imaginons:

Dans les cellules A1 à A5 il y a des 0
Dans les cellules A5 à A10 il y a des 1
Dans les cellules B1 à B10 il y a des valeurs quelconques

Je veux sommer les valeurs de la colonne B pour lesquelles il y a un 1 dans la case correspondante de la colonne A.

Pour cela on utilise: =SUMPRODUCT((A1:A10=1)*(B1:B10))

Mais je voudrais l'écrire dans une Macro.

Par exemple, j'aimerais grâce à mon code VBA, retourner la valeur de cette sommeprod dans ma cellule C1, pour cela j'ai la solution:

Code:

---

Range("C1") = Evaluate("SumProduct((A1:A10=1) * (B1:B10))")

---

Ce code marche, mais moi j'aimerais l'adapter à des cellules variables pour insérer la ligne de code dans une boucle comme suit:

Code:

---

1 2 3 4 5 6 7 8

For i = 1 to 5000 For j = 1 to 5000   Range("C1") = Evaluate("SumProduct(("A" & i :"A" & j =1) * ("B" & i : "B" & j))")   Next j Next i

---

Seulement ca ne marche pas car je ne connais pas la bonne syntaxe pour les "A" & i ....


Quelqu'un aurait-il déjà rencontré ce problème ?

Je remercie d'avance tous ceux qui me liront =)

Guillaume

Bonsoir,
pour la formule, essaies ça (pas testé)

Code:

---

Evaluate("SumProduct(("A" & i" & ":" & "A" & j & "=" & 1) * ("B" & i & ":" & "B" & j))")

---

mais je ne comprends pas la finalité car ta boucle va tourner et C1 va se retrouver directement avec la formule pour A5000 et B5000, de plus pourquoi 2 boucles ?

Bonjour,

pourquoi un SOMMEPROD quand un SOMME.SI suffit ?

une application de ton exemple A1:A10 et B1:B10 de la feuille active

Code:

---

1 2 3

Sub Formule() MsgBox Application.WorksheetFunction.SumIf(Range(Cells(1, 1), Cells(10, 1)), 1, Range(Cells(1, 2), Cells(10, 2))) End Sub

---

simplifiable à l'envie en utilisant un objet Range et/ou un resize

Code:

---

1 2 3 4 5

Sub Formule() Dim Plage As Range Set Plage = Cells(1, 1).Resize(10, 1) MsgBox Application.WorksheetFunction.SumIf(Plage, 1, Plage.Offset(0, 1)) End Sub

---

Bonjour casefayere et joe.levrai,

Tout d'abord merci pour vos réponses.

Pour Joe.levrai:

C'est vrai que c'est carrément plus simple avec un SOMMEIF() ! Mais est ce qu'il marche encore si on veut mettre plusieurs conditions de calcul comme on pourrait le faire dans un SOMMEPROD() ?
En tout cas merci ça m'a carrément débloqué sur le coup =)

Pour casefayere:

Les boucles c'était juste à titre indicatif, il ne faut pas en tenir compte. En fait dans la finalité de mon analyse Excel je dois calculer plusieurs SOMMEPROD() sur plusieurs blocs du type "A" & i : "A" & j et "B" & i : "B" & j sur une feuille de données de plus de 5000 lignes, d'où mon besoin cruel d'utiliser ce SOMMEPROD() en vba =)


Dans tous les cas ton code m'a bien aidé aussi merci, il contenait juste une ou deux erreurs de syntaxe que j'ai corrigé et le code qui fonctionne est le suivant:

Code:

---

Evaluate("=SUMPRODUCT((" & "A" & i & ":" & "A" & j & "=1" & ")" & "*" & "(" & "B" & i & ":" & "B" & j & "))")

---

Merci à vous deux et bonne soirée !


Guillaume

Si tu as plusieurs conditions, tu bascules sur SOMME.SI.ENS dans ce cas la (SumIfs en VBA)

Ok c'est plus simple dans ce cas ! merci