Microsoft 365 Evaluate sumproduct Gd Nombre de Lignes

[eric72]

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:

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

 

[Phil69970]

Bonjour @eric72

Je te propose ce fichier mais sans boucle (Tu prends qu’en même ?)

 

[Phil69970]

Re

@eric72

Et si tu veux éviter les N/A je te propose la V2

 

[eric72]

Bonjour @eric72

Je te propose ce fichier mais sans boucle (Tu prends qu’en même ?)

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

 

[eric72]

Re

@eric72

Et si tu veux éviter les N/A je te propose la V2

Super, nos messages se sont croisés.
Merci 1000 fois pour cette réponse rapide.
Bonne soirée

 

[Phil69970]

Re

De plus en plus fort je réponds avant la question

 

[job75]

Bonsoir eric72, Phil69970,

Et si tu veux éviter les N/A je te propose la V2

Ce ne sont pas des #N/A mais des #VALEUR! dus aux textes en H10 H11 et H13.

Pour les éviter il suffit de remplacer l'opérateur multiplication "*" par le point-virgule ";" :

Feuil1.Range("AP8").FormulaLocal = "=SOMMEPROD(H8:AO8;H$7:AO$7)"

A+