Comment pourrais-je écrire une macro qui additionnerait 14 lignes relatives
dans une colonne pour mettre le résultat dans la cellule C200.
J'ai pensé à celle-ci mais ça ne fonctionne pas
Sub addition()
Range("c20").Select
cellule1 = ActiveCell.Address
cellule2 = ActiveCell.Offset(14, 0).Address
Range("c200").Select
With ActiveCell
.Value = "=sum(cellule1:" & Range(cellule1, cellule2) & ")"
End With
End Sub
Dans mon exemple, à la cellule C200 je voudrais avoir la somme des cellules
c20 à c34
x = "C20" [C200].Formula = "=SUM(OFFSET(" & x & ",,,15,1))"
Cordialement JB
On 10 avr, 03:31, "Flac" wrote:
Bonjour à tous, Excel 2000
Comment pourrais-je écrire une macro qui additionnerait 14 lignes relat ives dans une colonne pour mettre le résultat dans la cellule C200.
J'ai pensé à celle-ci mais ça ne fonctionne pas
Sub addition() Range("c20").Select cellule1 = ActiveCell.Address cellule2 = ActiveCell.Offset(14, 0).Address Range("c200").Select With ActiveCell .Value = "=sum(cellule1:" & Range(cellule1, cellule2) & ")" End With End Sub
Dans mon exemple, à la cellule C200 je voudrais avoir la somme des cell ules c20 à c34
x = "C20"
[C200].Formula = "=SUM(OFFSET(" & x & ",,,15,1))"
Cordialement JB
On 10 avr, 03:31, "Flac" <luc...@hotmail.com> wrote:
Bonjour à tous,
Excel 2000
Comment pourrais-je écrire une macro qui additionnerait 14 lignes relat ives
dans une colonne pour mettre le résultat dans la cellule C200.
J'ai pensé à celle-ci mais ça ne fonctionne pas
Sub addition()
Range("c20").Select
cellule1 = ActiveCell.Address
cellule2 = ActiveCell.Offset(14, 0).Address
Range("c200").Select
With ActiveCell
.Value = "=sum(cellule1:" & Range(cellule1, cellule2) & ")"
End With
End Sub
Dans mon exemple, à la cellule C200 je voudrais avoir la somme des cell ules
c20 à c34
x = "C20" [C200].Formula = "=SUM(OFFSET(" & x & ",,,15,1))"
Cordialement JB
On 10 avr, 03:31, "Flac" wrote:
Bonjour à tous, Excel 2000
Comment pourrais-je écrire une macro qui additionnerait 14 lignes relat ives dans une colonne pour mettre le résultat dans la cellule C200.
J'ai pensé à celle-ci mais ça ne fonctionne pas
Sub addition() Range("c20").Select cellule1 = ActiveCell.Address cellule2 = ActiveCell.Offset(14, 0).Address Range("c200").Select With ActiveCell .Value = "=sum(cellule1:" & Range(cellule1, cellule2) & ")" End With End Sub
Dans mon exemple, à la cellule C200 je voudrais avoir la somme des cell ules c20 à c34