Faire des totaux

Dranreb

XLDnaute Barbatruc

• 18 Mai 2011

• #2

Re : Faire des totaux

Bonjour
À réécrire comme ça:

VB:

Dim Cel As Range
Set Cel = Worksheets("606100").Cells(Rows.Count, 1).End(xlUp)
Cel.Value = "TOTAUX :"
Cel.Offset(, 1).FormulaR1C1 = "=SUM(R2C:R[-1]C)"

Mais étudiez aussi les possibilités menu Données, Sous totaux...
À+

 

Dernière édition: 18 Mai 2011

Vote positif 0 Vote négatif

M

mathieu13950

Guest

• 18 Mai 2011

• #3

Re : Faire des totaux

Bonjour,

Merci pour le code mais le problème c'est qu'il m'efface la dernière ligne.
En fait c'est la dernière ligne +1 où il faut mettre "TOTAUX."

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Mai 2011

• #4

Re : Faire des totaux

Ah, oui. Excusez moi.

VB:

Dim Cel As Range
Set Cel = Worksheets("606100").Cells(Rows.Count, 1).End(xlUp)
Cel.Offset(1, 0).Value = "TOTAUX :"
Cel.Offset(1, 1).FormulaR1C1 = "=SUM(R2C:R[-1]C)"

À+

 

Vote positif 0 Vote négatif

M

mathieu13950

Guest

• 18 Mai 2011

• #5

Re : Faire des totaux

Re,

Ya pas de mal.

Merci beaucoup

A++

 

Vote positif 0 Vote négatif