Aller à Une Cellule et sommer

[musat]

Bonjour,

Je voudrais par MACRO aller à la dernière cellule contenant une valeur de la colonne F (soit F?) et effectuer la somme à partir de la cellule F10 jusqu'à la cellule juste au dessus de la cellule F?

Merci....

 

[@+Thierry]

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

 

[@+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