Somme colonne

[BRUNO62]

Bonsoir,

J'ai besoin d'aide, avez vous une idée ?
Somme de colonnes de la dernière ligne de B à D
Un petit bout
Range("A2", [D65000].End(xlUp)).Sort , key1:=[A1]
[A65536].End(4)(3) = "Total" .....type
[B65536].End(4)(3) = "=SUM(Feuil1!C)"
[C65536].End(4)(3) = "=SUM(Feuil1!C)"
[D65536].End(4)(3) = "=SUM(Feuil1!C)"
Merci
A+

 

[flyonets44]

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