somme automatique derniére ligne macro

S

Softmama

XLDnaute Accro

• 17 Mai 2011

• #2

Re : somme automatique derniére ligne macro

Bonjour,

ainsi, par exemple :

VB:

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

 

Vote positif 0 Vote négatif

A

Arnaud5962

Guest

• 17 Mai 2011

• #3

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))

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 17 Mai 2011

• #4

Re : somme automatique derniére ligne macro

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

Code:

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

 

Vote positif 0 Vote négatif

A

Arnaud5962

Guest

• 17 Mai 2011

• #5

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 17 Mai 2011

• #6

Re : somme automatique derniére ligne macro

Ainsi :

Code:

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

 

Vote positif 0 Vote négatif

A

Arnaud5962

Guest

• 17 Mai 2011

• #7

Re : somme automatique derniére ligne macro

merci beaucoup,

 

Vote positif 0 Vote négatif