sommeprod + boucle

[Nashou]

Bonsoir 🙂

Je n'arrive pas à combiner une boucle avec un sommeprod en VBA.

Mon code actuel ne me sort aucune erreur mais il n'écrit pas...

Dim i As Integer

For i = 3 To Range("C65536").End(xlUp).Row

Active.Cells(i, 3).Formula = ("=SOMMEPROD((OCTOBRE2010!$E$2:$E$65000=cells(2,3).value)*((OCTOBRE2010!$F2$:$F$65000)=cells(i,1).value)*-(OCTOBRE2010!$G$2:$G$65000))")

Next i

Normalement, ça devrait écrire un résultat sauf si j'ai omis quelque chose.
Un oeil avertit comprendra peut être ce qui cloche 🙂
Merci.

 

[Banzai64]

Re : sommeprod + boucle

Bonjour

Code corrigé il me semble

Tu avais

$F2$

au lieu de

$F$2

Je pense que voulais inscrire la valeur des cellules dans la formule

Donc

Sub test()
  For i = 3 To Range("C65536").End(xlUp).Row
    Cells(i, 3).Formula = "=SOMMEPROD((OCTOBRE2010!$E$2:$E$65000=" & Cells(2, 3).Value & _
                          ")*((OCTOBRE2010!$F$2:$F$65000)=" & Cells(i, 1).Value & _
                          ")*-(OCTOBRE2010!$G$2:$G$65000))"
  Next i
End Sub

Bonne nuit

 

[hbenalia]

Re : sommeprod + boucle

Bonjour à tous,

Changer le mot "SOMMEPRO" dans le code par "SUMPRODUCT" et aussi n'y a-t'il pas erreur du signe - après * à la fin de la formule?

Cordialement

 

[Nashou]

Re : sommeprod + boucle

Bonsoir,

J'ai essayé le SOMMEPRODUCT de cette façon sans résultat

For i = 3 To Sheets("BASE").Range("C65536").End(xlUp).Row

Sheets("2AS91DIS").Cells(i, 3).FormulaLocal = _
WorksheetFunction.SumProduct((Sheets("OCTOBRE2010").Range("E2:E65000") = "Cells(2, 3).value"), _
(Sheets("OCTOBRE2010").Range("F2:F65000") = "Cells(i, 1)"), _
-(Sheets("OCTOBRE2010").Range("G2:G65000")))

Next i

Le - devant ne pose pas de problème car c'est voulu. Ca affiche des - alors que je veux des +. Il me faudrait le code pour valeur absolue sinon.

Mon code n'a pas d'erreur mais ça n'écrit pas.
Je commence à me poser des questions sur cette fonction ...