Discussion :

[SalesTradingStruct]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RyuAutodidacte]

Bonjour,
Docmarti sympa ta version détaillé

une version par rapport à l'exemple donné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SalesTradingStruct]

Many thanks guys !
That's perfect !!
Regards

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[RyuAutodidacte]

Salut Philippe,

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

Edit : petite modif