Re: total d'une colonne de N lignes dans la première cellule de cette colonne
Salut"Loic,Renato,Ronan"
une autre version bidouillée
Sub TotalAuto()
Set Valeurs = Range("C4", [C4].End(xlDown))
NbValeurs = Valeurs.Count
Range("C4").Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = "=Sum(R[1]C:R[" & NbValeurs & "]C)"
With Selection
.Font.Bold = True
.Interior.ColorIndex = 6
End With
End Sub
A+++
Jean Marie
|