"Sumproduct" dans une macro.
Bonjour à tous,
J'ai réalisé une macro pour faire plusieurs calculs avec la fonction ""Sumproduct"" (voir ci-dessous).
Code:
1
2
3
4
5
| For compteur = 1 To 5
Resultat = Evaluate("SUMPRODUCT(('Unités et tonnes stockées'!B2:B65000=B1)*('Unités et tonnes stockées'!K2:K65000=A6)*('Unités et tonnes stockées'!H2:H65000=""PAL""),'Unités et tonnes stockées'!I2:I65000)")
Range("N" & (1 + compteur * 5)).Select
ActiveCell.FormulaR1C1 = Resultat |
Mon problème : je souhaite faire varier ""A6"", mettre A7 puis A8 en faisant une seconde boucle ... Mais je n'arrive à rien sans avoir un message d'erreur. J’ai essayé de remplacer A6 par Range("A" & compteurbis).
Je souhaite aussi faire varier ""PAL"". Idem je n'arrive pas à réaliser ce besoin.
Merci pour votre aide.
Le 29/01/2010:
C'est Ok, j'ai trouvé la solution,
Il faut l'écrire sous la forme suivante : """ & mois & """.
déclaration de mois : Dim mois As String
Code:
1
2
3
4
| If colonne <> "R" Then
Resultat = Evaluate("SUMPRODUCT((" & onglet & "B2:B65000=B1)*(" & onglet & "K2:K65000=""" & mois & """)*(" & onglet & "H2:H65000=""" & unite & """)," & onglet & "" & plage & ")")
Range(colonne & (pointdepart + compteurlignes)).Select
ActiveCell.FormulaR1C1 = Resultat |
Bon courage à tous ....:ccool:
