Bonjour,
Je n'arrive pas à faire fonctionner ce code ou plutôt à trouver le bon.
Range(Split(Range("Libellé").Address, ":")(1)).Activate
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 =
"=SUM(ActiveCell.offset(0,-1):R[-1]C)" (qui bien sur plante sur
SUM(ActiveCell.offset(0,-1):
En fait je sélectionne la derniere cellule de la zone nommée "libellé", je
décale d'une cellule en dessous, et dans cette cellule, je voudrais le total
de la colonne "libellé".
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonjour, Comme ceci, peut être :
Sub der() z = Range("libellé").Row yy = Range("libellé").Column + Range("libellé") _ .Columns.Count - 1 zz = z + Range("libellé").Rows.Count Cells(zz, yy).Formula = Application.WorksheetFunction _ .Sum(Range(Cells(z, yy), Cells(zz - 1, yy))) End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "pb" a écrit dans le message de news:
Bonjour, Je n'arrive pas à faire fonctionner ce code ou plutôt à trouver le bon.
Range(Split(Range("Libellé").Address, ":")(1)).Activate ActiveCell.Offset(1, 1).Select ActiveCell.FormulaR1C1 >> "=SUM(ActiveCell.offset(0,-1):R[-1]C)" (qui bien sur plante sur SUM(ActiveCell.offset(0,-1):
En fait je sélectionne la derniere cellule de la zone nommée "libellé", je décale d'une cellule en dessous, et dans cette cellule, je voudrais le total de la colonne "libellé".
Merci Pascal
Je vais appliquer ta recommandation.
De mon côté j'ai essayé cela mais le résultat me donne 0
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OLVljR1uJHA.3832@TK2MSFTNGP02.phx.gbl...
Bonjour,
Comme ceci, peut être :
Sub der()
z = Range("libellé").Row
yy = Range("libellé").Column + Range("libellé") _
.Columns.Count - 1
zz = z + Range("libellé").Rows.Count
Cells(zz, yy).Formula = Application.WorksheetFunction _
.Sum(Range(Cells(z, yy), Cells(zz - 1, yy)))
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pb" <pb@nospam.fr> a écrit dans le message de
news:eb20FF1uJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je n'arrive pas à faire fonctionner ce code ou plutôt à trouver le bon.
Range(Split(Range("Libellé").Address, ":")(1)).Activate
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 >> "=SUM(ActiveCell.offset(0,-1):R[-1]C)" (qui bien sur plante sur
SUM(ActiveCell.offset(0,-1):
En fait je sélectionne la derniere cellule de la zone nommée "libellé",
je décale d'une cellule en dessous, et dans cette cellule, je voudrais le
total de la colonne "libellé".
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonjour, Comme ceci, peut être :
Sub der() z = Range("libellé").Row yy = Range("libellé").Column + Range("libellé") _ .Columns.Count - 1 zz = z + Range("libellé").Rows.Count Cells(zz, yy).Formula = Application.WorksheetFunction _ .Sum(Range(Cells(z, yy), Cells(zz - 1, yy))) End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "pb" a écrit dans le message de news:
Bonjour, Je n'arrive pas à faire fonctionner ce code ou plutôt à trouver le bon.
Range(Split(Range("Libellé").Address, ":")(1)).Activate ActiveCell.Offset(1, 1).Select ActiveCell.FormulaR1C1 >> "=SUM(ActiveCell.offset(0,-1):R[-1]C)" (qui bien sur plante sur SUM(ActiveCell.offset(0,-1):
En fait je sélectionne la derniere cellule de la zone nommée "libellé", je décale d'une cellule en dessous, et dans cette cellule, je voudrais le total de la colonne "libellé".