Faire des totaux

mathieu13950 · 18 Mai 2011

Bonjour,

J'ai un onglet avec des données par lignes variables.
Et j'aimerais à chaque fois que je lance ma macro, il me rajoute le mot "TOTAUX" a la fin de toutes les lignes.
Le problème c'est qu'au lieu de me marquer "TOTAUX" il me marque "VRAI" ???

Et par la suite, j'aimerais qu'on décale d'une case à droite de la case "TOTAUX" et qu'il me fasse le total de toutes les sommes figurant au dessus.

Merci pour votre aide.

Dranreb · 18 Mai 2011

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...
À+

mathieu13950 · 18 Mai 2011

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+

Dranreb · 18 Mai 2011

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

À+

mathieu13950 · 18 Mai 2011

Re : Faire des totaux

Re,

Ya pas de mal.

Merci beaucoup

A++

Faire des totaux

mathieu13950

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

mathieu13950

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

mathieu13950

XLDnaute Nouveau

Discussions similaires