[XL-2010] Ecrire un sommeprod avec VBA

Ecrire un sommeprod avec VBA

Bonjour,

J'essaie de faire un fichier de consolidation pour du chiffrage.
Je suis arrivé à générer une feuille de récap dédiée aux pièces d'achat et je voudrais générer une formule sommeprod pour chacun des systèmes.

Sur excel, cela donnerait: =SOMMEPROD(C20:C612;AQ20:AQ612)

C quantité pour le système 1
AQ prix unitaire des pièces d'achat (avec 10 systèmes dans la nomenclature)

La où ça se complique, c'est que je peux avoir de nombreux systèmes:

C = Quantité pour le système 1, D = Quantité pour le système 2, etc...
AQ prix unitaire des pièces d'achat avec 10 systèmes dans la nomenclature. Avec 11 systèmes AQ deviendrait AP, etc...

J'ai donc déclaré des variables:
Code:

1 2 3 4 5 6 C= 2 + Sys_number (=1) AQ = 3 + exist_sys (=10) + 30 20 = Startcplist 612 = Endcplist Sheets(curr_name).Cells(8 + sys_number, 3 + exist_sys + 30).Formula = "=sumproduct(" & Sheets(curr_name).Cells(startcplist, 2 + sys_number) & ":" & Sheets(curr_name).Cells(endcplist, 2 + sys_number) & "," & Sheets(curr_name).Cells(startcplist, Range("Material").Column) & ":" & Sheets(curr_name).Cells(endcplist, Range("Material").Column) & ")"
A mon avis, je m'y prends mal. J'arrive bien à retranscrire la formule, mais pas les coordonnées... C20:C612;AQ20:AQ612

Pourriez vous m'aider?

Bonjour,

Essaie comme ceci pour voir

Code:

1
2
3
4
5
6
Sheets(curr_name).Cells(8 + sys_number, 3 + exist_sys + 30).Formula = _
    "=sumproduct(" & _
        Cells(Startcplist, 2 + sys_number).Address & ":" & _
        Cells(endcplist, 2 + sys_number).Address & "," & _
        Cells(Startcplist, Range("Material").Column).Address & ":" & _
        Cells(endcplist, Range("Material").Column).Address & ")"

Merci beaucoup!

Ca a marché du premier coup!

Résultats: des heures de mise à jour de formules rébarbatives de gagné.

Encore merci pour ton aide.