Bonjour à tous,
J'ai réalisé une macro pour faire plusieurs calculs avec la fonction ""Sumproduct"" (voir ci-dessous).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ....