Aller à Une Cellule et sommer

Salut Musat,

Il te faut une macro comme celles-ci en exemple :

La Premiere fera l'addition en reportant qu'une valeur
Sub MusatSUM()
ligne = Sheets("sheet1").Range("F65536").End(xlUp).Row + 1
Set myRange = Worksheets(1).Range("F10:F" & ligne - 1)
total = Application.WorksheetFunction.Sum(myRange)
Cells(ligne, 6).Value = total
End Sub

La seconde reportera une formule qui fera l'addition
Sub MusatFORMULA()
Ligne = Sheets("sheet1").Range("F65536").End(xlUp).Row + 1
Formule = "=SUM(F10:F" & Ligne - 1 & ")"
Cells(Ligne, 6).Value = Formule
End Sub

Attention je suis en US ici, pour cette dernière macro il faut traduire SUM avec SOMME (je crois, en français).

Voilà
Bon aprèm
@+Thierry

En fait... je me demande si parfois çà sert de faire quelque chose... en voyant des posts comme çà.... qui en reste là..... ptet je... bon aller va bonne nuit.......

et bon anniversaire David !

@+Thierry