OVH Cloud OVH Cloud

somme

1 réponse
Avatar
patrick2708
pour faire suite à ma première question, l'erreur est la formule omet les
cellules adjencentes.

Merci

1 réponse

Avatar
Patrick Fredin
Rebonjour,

Voici comment j'écrirais la macro (non testé) :

Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0) .Select

ActiveCell = "Total"
Range("D" & ActiveCell.Row & ":I" & ActiveCell.Row) = "=SUM(R2C:R[-1]C)"

--
Patrick


"patrick2708" wrote:

pour faire suite à ma première question, l'erreur est la formule omet les
cellules adjencentes.

Merci