Faire des totaux

[mathieu13950]

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]

Re : Faire des totaux

Bonjour
À réécrire comme ça:

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]

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]

Re : Faire des totaux

Ah, oui. Excusez moi.

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]

Re : Faire des totaux

Re,

Ya pas de mal.

Merci beaucoup

A++