Automatisation fonction "FormulaR1C1"

Bonjour,

Avez vous une idée de comment je pourrais automatiser ceci ?

Code:

---

1 2 3 4 5

Range("C26").FormulaR1C1 = "=SUM(R2C2:R[-22]C[1])" Range("D26").FormulaR1C1 = "=SUM(R2C3:R[-22]C[1])" Range("E26").FormulaR1C1 = "=SUM(R2C4:R[-22]C[1])" Range("F26").FormulaR1C1 = "=SUM(R2C5:R[-22]C[1])" Range("G26").FormulaR1C1 = "=SUM(R2C6:R[-22]C[1])"

---

Merci à tous!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub tt()   fonction = "sum(": fermeFunction = ")"   ligneRelative = -22: colonneRelative = 1   ligneAbsolue = 2 'colonneAbsolue = 2 To 6   Set dest = Feuil1.Range("C26"): Offset = 0   For colonneAbsolue = 2 To 6   adresseAbsolue = "R" & ligneAbsolue & "C" & colonneAbsolue   adresseRelative = "R[" & ligneRelative & "]" & "C[" & colonneRelative & "]"   formule = "=" & fonction & adresseAbsolue & ":" & adresseRelative & fermeFunction   dest.Offset(, Offset).FormulaR1C1 = formule   Offset = Offset + 1   Next   End Sub

---

Bonjour,
Docmarti sympa ta version détaillé :plusser:

une version par rapport à l'exemple donné :

Code:

---

1 2 3 4 5

Sub Somme() For i = 0 To 4 Cells(26, 3 + i).FormulaR1C1 = "=SUM(R2C" & 2 + i & ":R[-22]C[1])" Next End Sub

---

Many thanks guys !
That's perfect !!
Regards ;)

Bonjour,
Il n'y a aucune raison d'utiliser une boucle pour insérer une formule sur une plage de cellules. Une seule instruction suffit pour placer une formule dans une cellule ou un million de cellules à condition de maîtriser le référencement aux cellules (relative, absolue et mixte).

Code:

---

1 2 3

Sub Somme_2() Range("C26:G26").Formula = "=SUM($B$2:D4)" End Sub

---

Pour les nostalgiques, on peut également utiliser le référencement aux cellules en Style R1C1

Code:

---

1 2 3

Sub Somme_2() Range("C26:G26").FormulaR1C1 = "=SUM(R2C2:R[-22]C[1])" End Sub

---

Ne pas oublier d'ajouter bien entendu les objets parents de l'objet Range (feuille + classeur)

A lire ces deux billets sur le sujet Ecrire une formule dans Excel à l'aide d'une procédure VBA et Comment écrire des formules plus complexes et rendre dynamique les références aux plages de cellules ?

Salut Philippe,

tu as tout à fait raison, en plus je l'avais déjà fait

Edit : petite modif

Re Philippe,

le principe est ok mais il faut que la formule soit bien paramétrée pour obtenir le résultat voulu/attendu

ici ce que l'on veut c'est :

Code:

---

=SOMME($B$2:D4) =SOMME($C$2:E4) =SOMME($D$2:F4) =SOMME($E$2:G4) =SOMME($F$2:H4)

---

si on utilise simplement la formule :

Code:

---

1 2 3

Sub Somme_2() Range("C26:G26").Formula = "=SUM($B$2:D4)" End Sub

---

on obtient :

Code:

---

=SOMME($B$2:D4) =SOMME($B$2:E4) =SOMME($B$2:F4) =SOMME($B$2:G4) =SOMME($B$2:H4)

---

la Partie "$B$2" est verrouillée mais doit être incrémenté de 1 (colonne) à chaque fois, donc le forcé dans une boucle est une solution

Edit :
Dans le cas où il n'y a aucune raison valable à ce que "$B" soit verrouillé autant utilisé dans ce cas la formule sans boucle, on aura dans ce cas :

Code:

---

1 2 3

Sub Somme_3() Range("C26:G26").Formula = "=SUM(B$2:D4)" End Sub

---

ou

Code:

---

1 2 3

Sub Somme_3bis() Range("C26:G26").Formula = "=SUM(R2C[-1]:R[-22]C[1])" End Sub

---

ce qui donnera alors :

Code:

---

=SOMME(B$2:D4) =SOMME(C$2:E4) =SOMME(D$2:F4) =SOMME(E$2:G4) =SOMME(F$2:H4)

---

et au demandeur de voir ce qui est ok pour lui - SalesTradingStruct si tu repasses par là fais nous savoir ce qui est ok pour to et pourquoi ?

• ce qui est demandé
• ce qui peut être fait si cela convient

Ryu

Bonjour Ryu,
J'ai repris ton exemple du post #3 et tu verras que le résultat est exactement le même.
J'ai bien précisé également d'avoir la maîtrise du référencement relatif, absolu et mixte.

Citation:

---

Une seule instruction suffit pour placer une formule dans une cellule ou un million de cellules à condition de maîtriser le référencement aux cellules (relative, absolue et mixte).

---