Bonsoir à tous,
Pour poursuivre mon projet, je dois faire des totaux avec Evaluate sumproduct, pas de problème pour le mettre en place avec ce code:
VB:
Sub TestSomme()
With Feuil1
Range("ap8").Value = Evaluate("SumProduct((h8:ao8) * (h7:ao7))")
Range("ap9").Value = Evaluate("SumProduct((h9:ao9) * (h7:ao7))")
'etc pour 130 lignes, aie!!!
End With
End Sub
sauf que j'ai 300 lignes et que j'aimerais faire une boucle plutôt que recopier cette ligne de code 300 fois, avez-vous une idée?
Merci encore pour votre aide.
Eric
Re Phil69970,
Ah oui carrément!!! sans vouloir abuser est-il possible d'avoir un truc du genre "sierreur" car toutes les lignes n'auront pas systématiquement un total selon les cas.
Merci encore