Boucle sur des formules

[i0raek]

Bonjour à tous !

j'aimerais savoir s'il est possible, tout en utilisant les formules et non les valeurs (j'ai besoins du liens des formules...), de réaliser ce schéma :

For i = 1 to n

Feuil1.range("A1").formulaR1C1 = Feuil1.range("A1").formulaR1C1 & "=Sum(R[0]C[" & i+1 & "])"

Next

Chose que l'on peut faire avec la valeur... mais est ce possible en travaillant avec les formules ?

Si quelqu'un a une idée... toute suggestion sera plus que la bienvenue !!!

Merci d'avance pour votre aide !!!

 

[Pierrot93]

Re : Boucle sur des formules

Bonjour ioraek

je ne comprends pas très bien, d'après le code que tu nous donnes, tu rajoutes une formule à une autre formule, cela risque de pas trop bien marcher, ou alors quelque chose doit m'échapper, fort possible du reste...

Peut être qu'un exemple concret nous aiderait à t'aider...

bon après midi
@+

 

[skoobi]

Re : Boucle sur des formules

Bonjour,

si j'ai bien compris, test ceci:

Sub test()
n = 10
somme = "R[0]C["
For i = 1 To n
   Select Case i
   Case Is < n
      somme = somme & i + 1 & "]+R[0]C["
   Case Is = n
      somme = somme & i + 1 & "]"
   End Select
Next
Feuil1.Range("A1").FormulaR1C1 = "=Sum(" & somme & ")"
End Sub

Edit: bonjour Pierrot, je pense que i0raek veut écrire quelque chose de ce genre:
=SOMME(C1+D1+E1+F1+G1+H1+I1+J1+K1+L1)

 

[pierrejean]

Re : Boucle sur des formules

bonjour i0raek

Et si tu nous disait ce que tu souhaites (en français par exemple) !
parceque la:
ecrire n fois dans même cellule une formule variable , on n'en voit pas trop l'interet
surtout si l'on ajoute une formule a une autre
et de façon cumulative qui plus est !!

Ne pas negliger non plus l'assistance d'un petit fichier exemple
Les fichiers nous parlent generalement plus que les ecrits

 

[i0raek]

Re : Boucle sur des formules

Bonjour tout le monde !

Désolé pour l'explication... 🙁 je pensais qu'elle était plus compréhensible que ca...

en fait je travaille sur une feuille de calculs avec, par exemple,
- entre les lignes 1 à 10, les calculs concernant un produit A,
- entre les lignes 11 à 20, les calculs concernant un produit B,
- entre les lignes 21 à 30, les calculs concernant un produit C,.

Et, à partir de la ligne 30 un tableau de récap.
Jusqu'ici tout va bien. La ou ca se complique c'est que je dois insérer ou supprimer des produits et mettre à jour le tableau de récap !

Donc c'est pour cela que j'aurais besoin de pouvoir modifier les formules de mon tableau de récap avec des formules du type:

A35= A2+A12+A22 si 3 produits
A45=A2+A12+A22+A32 si 4 produits
etc...

en espérant avoir été plus clair...😱

 

[Dull]

Re : Boucle sur des formules

Salut i0raek, Skoobi, pierrejan, Pierrot, le Forum,


Et Pourquoi pas un Somme.si? si j'ai bien Compris

=SOMME.SI(TaPlage;TonCritère;TaPlageàSommer)

Bonne Journée

EDITION: JeanPierre 🙂 ta gourmandise te perdra!!! (1,7 contre 4,2) 😀

 

[jeanpierre]

Re : Boucle sur des formules

Bonjour iOraek, Pierrot, skoobi, PierreJean, Didier, le forum,

Après le SOMME.SI, le SOMMEPROD

Voir fichier

Bonne journée tous.

Jean-Pierre

 

[i0raek]

Re : Boucle sur des formules

Re tout le monde !

Merci à tous pour votre aide... je ne pensais pas que cela serait compliqué... j'aurais du commencer par la... je suis désolé... 😱

Voici un exemple.

En revanche, le fichier final comporte plus de 30 produits et l'échelle de temps est l'année avec un point tout le mois sur dix ans... De plus, il y a 250 lignes par produits...

Donc un nombre important de cellules au total...

Au début j'avais pensé à une écriture matricielle sur l'ensemble de ces cellules mais le temps de réponse était considérable... c'est pourquoi j'ai songé, à chaque insertion de nouveau produit à la mise à jour vb du tableau de récap...

en espérant que cela vous éclairera mieux...

 

[pierrejean]

Re : Boucle sur des formules

Re

J'ai fait un essai sur ton fichier et voici la macro que je te propose pour la mise a jour de la formule en C28 (nommée SQ1)

Sub test()
somsq1 = "SOMME.SI($C$6:$N$6;C$27;$C8:$N8)"
linsq1 = Range("SQ1").Row
For n = 15 To linsq1 - 3 Step 7
  formule = formule & Replace(somsq1, "N8", "N" & n) & "+"
  formule = Replace(formule, "C8", "C" & n)
Next n
formule = "=" & somsq1 & "+" & Left(formule, Len(formule) - 1)
Range("SQ1").FormulaLocal = formule
End Sub

Veux-tu faire des tests sur ton vrai fchier et nous dire
Nota: Il est important de 'baptiser ou nommer ' la cellule puisqu'elle va evoluer lorsque tu ajouteras un produit

 

[i0raek]

Re : Boucle sur des formules

Re tout le monde !!!

Merci Skoobi... C'EST EXACTEMENT ce qu'il me fallait !!!



Merci beaucoup à tous pour votre aide et votre temps !!!

 

[i0raek]

Re : Boucle sur des formules

Re TOUS !

je n'en espérais pas tant !!!

PierreJean, le code que tu me propose fonctionne parfaitement et est dix fois plus efficace que ce que j'étais en train de bricoler en adaptant le post de Skoobi !

Merci PierreJean !

Merci à tous pour tout vos conseils !!!