Bug vba sumproduct

[Windfly]

Bonjour à tous,

j'ai un soucis lors de l'exécution de ma macro qui doit insérer une formule SOMMEPROD dans une cellule.

Voici les lignes de programmation :

Range("J3").FormulaR1C1 = "=SUMPRODUCT((C7:C" & derlig_tab & ")*(F7:F" & derlig_tab & "))"
(derlig_tab étant la dernière ligne variable de mon tableau)

Lorsque je lance ma macro, j'ai le message d'erreur suivant :

Excel a manqué de ressources lors de la tentative de calcul d'une ou plusieurs formules. Ces formules n'ont donc pas pu être évaluées.

Et voici la formule inscrite dans ma cellule :

=SOMMEPROD(($G:$EZ)*(F7:F156))

Je ne comprends pas le résultat...

Pouvez vous m'aider svp?

Windfly

 

[Compte Supprimé 979]

Re : Bug vba sumproduct

Bonjour WindFly,

Remplace

[I]Range("J3").[COLOR=red][B]FormulaR1C1[/B][/COLOR][/I]

par

[I]Range("J3").[B][COLOR=blue]FormulaLocal[/COLOR][/B][/I]

Le référencement R1C1 correspond au référence ROW NUM / COLUMN NUM

A+

 

[JNP]

Re : Bug vba sumproduct

Bonjour Windfly 🙂,

Range("J3").FormulaR1C1 = "=SUMPRODUCT((C7:C" & derlig_tab & ")*(F7:F" & derlig_tab & "))"
(derlig_tab étant la dernière ligne variable de mon tableau)

FormulaR1C1 signifie que ta formule doit se mettre en références R1C1, donc calcul en fonction des décalages.
Si tu mets

Range("J3").Formula = "=SUMPRODUCT((C7:C" & derlig_tab & ")*(F7:F" & derlig_tab & "))"

ça fonctionnera beaucoup mieux 😉.
Bon AM 😎
Ajout : Salut Bruno. Moins en colère qu'hier 😛?...

 

[Windfly]

Re : Bug vba sumproduct

Bonjour BrunoM45

Merci pour cette réponse rapide.

Par contre, pour que celà fonctionne, il faut remplacer dans ma macro SUMPRODUCT par SOMMEPROD. Et dans ce cas, ca marche.

Merci encore

Windfly