Formuler une addition dans une macro

Le
Flac
Bonjour à tous,
Excel 2000

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

Quelqu'un aurait-il une solution?

Merci à l'avance

Flac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4395481
Bonjour,

Range("c20").Select
cellule1 = ActiveCell.Address
cellule2 = ActiveCell.Offset(14, 0).Address
Range("c200").Formula = "=sum(" & cellule1 & ":" & cellule2 & ")"

ou

x = "C20"
[C200].Formula = "=SUM(OFFSET(" & x & ",,,15,1))"

Cordialement JB

On 10 avr, 03:31, "Flac"
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

Quelqu'un aurait-il une solution?

Merci à l'avance

Flac


Publicité
Poster une réponse
Anonyme