comment ajouter un tèrme à une formule ?

[mazuno]

bonjour, j'ai une grosse formule de ce style

=SOMMEPROD(G701:G710;F701:F710)+PRODUIT(G670;F670)+PRODUIT(G639;F639)+PRODUIT(G608;F608)+PRODUIT(F577;G577)+PRODUIT(F546;G546)+PRODUIT(F515;G515)+PRODUIT(F484;G484)+PRODUIT(F453;G453)+PRODUIT(F422;G422)+SOMMEPROD(F380:F390;G380:G390)+PRODUIT(F352;G352)+PRODUIT(F330;G330)+PRODUIT(F299;G299)+SOMMEPROD(F287:F298;G287:G298)+PRODUIT(F276;G276)+PRODUIT(F222;G222)+PRODUIT(F175;G175)+PRODUIT(F158;G158)+PRODUIT(F149;G149)+PRODUIT(F133;G133)+PRODUIT(F110;G110)+PRODUIT(F93;G93)+PRODUIT(F67;G67)+PRODUIT(F35;G35)+PRODUIT(F31;G31)+PRODUIT(F19;G19)+PRODUIT(F7;G7)+PRODUIT(F6;G6)

dans la quelle j'aurai besoin d'ajouter des termes (des produits de 2 cellules comme ceux déjà présents) j'ai donc écrit cette ligne

 ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + "+RODUCT(R[29]C[-1],R[29]C[0])"

qui va ajouter un terme à ma formule, cela fonctionne.
le problème c'est que si j'exécute a nouveau cette ligne 1 ou 2 fois j'ai un message d'erreur "mémoire insuffisante" et je ne peut donc plus ajouter de terme à ma formule

j'espère que vous avez compris quel était mon problème^^

quelqu'un connait un moyen pour "rallonger" une formule en contournant ce problème de mémoire?

merci

 

[CMoa]

Re : comment ajouter un tèrme à une formule ?

Bonjour mazuno

essaye comme ceci:

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "+PRODUCT(R[29]C[-1],R[29]C[0])"

attention à l'ortographe de ton nom P RODUCT

 

[mazuno]

Re : comment ajouter un tèrme à une formule ?

ha oui merci j'avai mal recopié sur le forum mais ma formule est écrite correctement dans mon code, l'erreur ne vient pas de la ><

merci quand meme 🙂

 

[mazuno]

Re : comment ajouter un tèrme à une formule ?

Bonjour, j'ai opté pour une solution différente qui semble mieux marcher :

    ActiveCell.Offset(1, 0).FormulaR1C1 = "=PRODUCT(R[" & DiffDeLignes & "]C6,R[" & DiffDeLignes & "]C)"
    ActiveCell.Offset(1, 0).Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlAdd, _
        SkipBlanks:=False, Transpose:=False

je m'explique : j'écrit le bout de formule que je veux rajouter dans une cellule en dessous, je la copie, et je fait un collage special en mode addition. le résultat est bon mais le problème c'est que excel m'ajoute plein de parenthèses :

=((SOMMEPROD(G702:G711;$F702:$F711)+PRODUIT(G671;$F671)+PRODUIT(G640;$F640)+PRODUIT(G609;$F609)+PRODUIT($F578;G578)+PRODUIT($F547;G547)+PRODUIT($F516;G516)+PRODUIT($F485;G485)+PRODUIT($F454;G454)+PRODUIT($F423;G423)+SOMMEPROD($F381:$F391;G381:G391)+PRODUIT($F353;G353)+PRODUIT($F331;G331)+PRODUIT($F300;G300)+SOMMEPROD($F288:$F299;G288:G299)+PRODUIT($F277;G277)+PRODUIT($F223;G223)+PRODUIT($F176;G176)+PRODUIT($F159;G159)+PRODUIT($F150;G150)+PRODUIT($F134;G134)+PRODUIT($F111;G111)+PRODUIT($F94;G94)+PRODUIT($F68;G68)+PRODUIT($F36;G36)+PRODUIT($F19;G19)+PRODUIT($F7;G7)+PRODUIT($F6;G6))+(PRODUIT($F32;G32)))+(PRODUIT($F31;G31))

j'ai donc comme vous pouvez le voir une concaténation des parenthèses que j'aimerai éviter.
connaissez vous une option du collage spécial qui permet de ne pas mettre ces parenthèses?
je ne sais pas si je suis très clair mais c'est assez compliqué à expliquer lol
merci de votre aide