Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Changer la formule

Changer la formule

4 réponses
Avatar
Comres.metz
Bonjour à tous,

Je récupére dans un tableau la derniere ligne auquelle je soustrait 3.
Dans une cellule, je calcule un sous total à partir de la ligne 5 jusqu'à ma
derniere ligne -3.
Ma ligne de départ est fixe, seule la derniere ligne est fluctuante.
J'utilise cette macro :

derlig = ActiveSheet.Range("a65536").end(xlUp).Row
derligne = derlig - 3
Range("G112").select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-107]C:R[-4]C)"

Comment faire pour passer à la place de R[-107]C la valeur de derligne.
En fait, je voudrais faire un Sous total de ma colonne avec ma premiere
ligne en 5 mais ma derniere ligne est inconnue.

Merci d'avance.
Signaler un problème avec ce contenu

4 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
jb
Bonjour,

x est la variable qui contient la valeur à placer:

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[" & x & "]C:R[-4]C)"

Cordialement JB
Avatar
HD
Voilà :

derlig = ActiveSheet.Range("a65536").end(xlUp).Row
derligne = derlig - 3
Range("G112").select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & derligne & "]C:R[-4]C)"

--
@+
HD
Avatar
Comres.metz
Bonjour,
Merci pour la soluce, mais je vais prendre celle de HD.
Encore merci.

"jb" a écrit dans le message de
news:
Bonjour,

x est la variable qui contient la valeur à placer:

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[" & x & "]C:R[-4]C)"

Cordialement JB
Avatar
Comres.metz
Bonjour,

Merci pour la soluce.
Je n'avais pas rajouter le deuxieme & derriere derligne.
Merci pour tout.

"HD" a écrit dans le message de
news:dls6tv$21ha$
Voilà :

derlig = ActiveSheet.Range("a65536").end(xlUp).Row
derligne = derlig - 3
Range("G112").select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & derligne & "]C:R[-4]C)"

--
@+
HD