somme automatique derniére ligne macro

[Arnaud5962]

Bonjour,
je cherche une macro qui me ferait la somme automatique des colonnes H,I,J en derniére ligne.
merci d'avance

 

[Softmama]

Re : somme automatique derniére ligne macro

Bonjour,

ainsi, par exemple :

sub test()
Dim c as range
Set c=Range("H65536").end(xlup)
msgbox application.Sum(range(c,c.offset(0,2))
end sub

 

[Arnaud5962]

Re : somme automatique derniére ligne macro

merci mais j'ai une erreur de syntaxe pour cette ligne
msgbox application.Sum(range(c,c.offset(0,2))

 

[Softmama]

Re : somme automatique derniére ligne macro

C'est heureux, car je crois que j'avais mal compris

sub test()
Dim c as range
Set c=Range("H65536").end(xlup).offset(1,0)
Range(c,c(1,3)).FormulaR1C1 = "=SUM(R1C:R" & c.row-1 & "C)"
'Range(c,c(1,3)).Value = Range(c,c(1,3)).Value  ': à mettre si tu ne veux pas la formule mais que la somme
end sub

 

[Arnaud5962]

Re : somme automatique derniére ligne macro

c'est parfait!!merci beaucoup!
Mais je souhaiterais encore ajouter quelquechose,
je voudrais, qu'avant de faire la somme automatique, supprimer la derniére ligne.
merci d'avance

 

[Softmama]

Re : somme automatique derniére ligne macro

Ainsi :

sub test()
Dim c as range
Set c=Range("H65536").end(xlup).offset(1,0)
c(0,1).entirerow.delete
Range(c,c(1,3)).FormulaR1C1 = "=SUM(R1C:R" & c.row-1 & "C)"
'Range(c,c(1,3)).Value = Range(c,c(1,3)).Value  ': à mettre si tu ne veux pas la formule mais que la somme
end sub

 

[Arnaud5962]

Re : somme automatique derniére ligne macro

merci beaucoup,