Somme colonne

Re : Somme colonne

Bonjour
Voici du code pour une totalisation en bas de colonne, à adapter à ton besoin
Sub Ici()
'Totalisation 'd'une colonne en bas de la colonne
'Totalisation à l'endroit de la sélection
Dim Plage As Range, Ax&, By&, Kd&, Kp&, Ici As Range
Kd = 2 'Première cellule de la colonne
Ax = ActiveCell.Row - 1
By = ActiveCell.Column
Set Plage = Range(Cells(Kd, By), Cells(Ax, By))
Kp = Plage.Rows.Count
Set Ici = Cells(Kd + Kp, By)
With Ici
.Interior.ColorIndex = 33
.Formula = "=SUM(" & _
Plage.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"
.NumberFormatLocal = "### ###"
End With
Set Plage = Nothing: Set Ici = Nothing
End Sub
Cordialement
Flyonets