Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel somme par vba dans tableau de dimension variable

somme par vba dans tableau de dimension variable

2 réponses
Avatar
JCR
Bonjour à tous,

je cheche a calculer le total d'une colonne par Macro, la taille du tableau
est variable, et je souhaite avoir le total aprés la derniere ligne remplie.

je sait compter les lignes mais je n'arrive pas à entrer cette information
dans la formule.

Ci joint le début de ma macro.


Range("C65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("c2").Select
Ligne = ActiveCell.Row
bas = Ligne - 8
MsgBox (bas)
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-bas???]C:R[-1]C)"


Merci

Jean Claude
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.M
Salut,

Sous réserve de bien comprendre car ton code ne réflète pas exactement la
description que tu en fais (notamment au niveau de la cellule de destination de
la formule):

Dim dLi As Long
dLi = ActiveSheet.Range("C65536").End(xlUp).Row
ActiveSheet.Cells(dLi + 1, "C").Formula = _
"=SUBTOTAL(9,C1:C" & dLi & ")"

Bien à vous,

Daniel M.

"JCR" wrote in message
news:
Bonjour à tous,

je cheche a calculer le total d'une colonne par Macro, la taille du tableau
est variable, et je souhaite avoir le total aprés la derniere ligne remplie.

je sait compter les lignes mais je n'arrive pas à entrer cette information
dans la formule.

Ci joint le début de ma macro.


Range("C65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("c2").Select
Ligne = ActiveCell.Row
bas = Ligne - 8
MsgBox (bas)
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-bas???]C:R[-1]C)"


Merci

Jean Claude




Avatar
JCR
Merci,
a premiere vue je n'arrive pas a la faire fonctionner, aucune formule ne
s'inscrit dans la case...., j'essaie d'adapter et je revient ici au cas ou.



"Daniel.M" a écrit dans le message de
news: %23ik1AO$
Salut,

Sous réserve de bien comprendre car ton code ne réflète pas exactement la
description que tu en fais (notamment au niveau de la cellule de
destination de
la formule):

Dim dLi As Long
dLi = ActiveSheet.Range("C65536").End(xlUp).Row
ActiveSheet.Cells(dLi + 1, "C").Formula = _
"=SUBTOTAL(9,C1:C" & dLi & ")"

Bien à vous,

Daniel M.

"JCR" wrote in message
news:
Bonjour à tous,

je cheche a calculer le total d'une colonne par Macro, la taille du
tableau
est variable, et je souhaite avoir le total aprés la derniere ligne
remplie.

je sait compter les lignes mais je n'arrive pas à entrer cette
information
dans la formule.

Ci joint le début de ma macro.


Range("C65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("c2").Select
Ligne = ActiveCell.Row
bas = Ligne - 8
MsgBox (bas)
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-bas???]C:R[-1]C)"


Merci

Jean Claude