Fonction Sum de Excel

Bonjour,

La fonction SUM de excel me conviendrait bien :

Sub AAASUM()
'
' AAASUM Macro
'

'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
ActiveCell.Select
Selection.Cut
ActiveCell.Offset(-6, 0).range("A1").Select
ActiveSheet.Paste
ActiveCell.Select
End Sub

Est-il possible de remplacer les le numéro de ligne R[-5] par une variable du type "n", je n'arrive pas à faire fonctionner le code avec "n"?

Cordialement,

Eric

Salut Eric,

jamais rien compris à cette notation...

Total = WorksheetFunction.Sum(Range("A1:A10"))

A+

ok merci, j'essaye.

Bonjour,

qu'essaies-tu de faire ?

cette macro met une formule somme (de -5 lignes à -1 ligne, même colonne par rapport à la cellule active) dans la cellule active. Puis déplacement de cette formule, 6 lignes plus haut.

Que contiendra n ?

voici comment mettre des variables vba (ici n et m) dans une formule excel

ActiveCell.FormulaR1C1 = "=SUM(R" & n & "C:R" & m & "C)"

Bonjour, vous avez répondu a ma demande, super. Par contre mon pc est en panne actuellement.

Cordialement,