Somme

Le
pb
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
pb
Le #19102941
Je vais appliquer ta recommandation.
De mon côté j'ai essayé cela mais le résultat me donne 0

Range(Split(Range("Libellé").Address, ":")(1)).Activate
ActiveWorkbook.Names.Add Name:="Avr", RefersToR1C1:= _
"=OFFSET(Service!R2C3,,,COUNTA(Service!C3)-1)"
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=sum(avr)"
Merci

"Philippe.R"
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" 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






Publicité
Poster une réponse
Anonyme