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 Total en bas d'une colonne

Total en bas d'une colonne

4 réponses
Avatar
Pataboum
Bonjour,

Comment écrire en VBA Excel le code pour insérer la fonction "SOMME" en bas
d'une colonne qui peut avoir des tailles différentes ?
Par exemple: pour faire le total dans la cellule "A11" acec des chiffres
dans "A3:A10",
je pensais pouvoir écrire:

ligne = 10
ActiveCell.Formula = " =SUM(" A3:A " & ligne)"

mais ça ne fonctionne pas, ni avec:

FormulaR1C1 = "=SUM(R[-ligne-2]C:R[-1]C)"

(en réalité, je détermine la variable "ligne" avec
CurrentRegion.Rows.Count, mais pour tester la formule, je simplifie).

Merci de votre aide
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
Vincent.
Bonjour,
Essaie ça :
ActiveCell.FormulaR1C1 = "=SUM(R3C:R[" & ligne-1 & "]C)"
A+

Vincent.

PS : j'ai pas pris le temps de tester :/

-----Message d'origine-----
Bonjour,

Comment écrire en VBA Excel le code pour insérer la
fonction "SOMME" en bas

d'une colonne qui peut avoir des tailles différentes ?
Par exemple: pour faire le total dans la cellule "A11"
acec des chiffres

dans "A3:A10",
je pensais pouvoir écrire:

ligne = 10
ActiveCell.Formula = " =SUM(" A3:A " & ligne)"

mais ça ne fonctionne pas, ni avec:

FormulaR1C1 = "=SUM(R[-ligne-2]C:R[-1]C)"

(en réalité, je détermine la variable "ligne" avec
CurrentRegion.Rows.Count, mais pour tester la formule, je
simplifie).


Merci de votre aide


.



Avatar
AV
Sub zzz()
ligne = [A65536].End(3).Row
'pour écrire la formule
'Cells(ligne + 1, "A") = "=SUM(A3:A" & ligne & ")"
'pour écrire le résultat
Cells(ligne + 1, "A") = Application.Sum(Range("A3:A" & ligne))
End Sub

PS : A part ça, c'est pas une vraie bonne idée de mettre une somme en fin de
colonne...
AV
Avatar
Pataboum
Bonjour Vincent,

ça marche

Merci

René



"Vincent." a écrit dans le message de
news:a55001c4d620$e79c8a70$
Bonjour,
Essaie ça :
ActiveCell.FormulaR1C1 = "=SUM(R3C:R[" & ligne-1 & "]C)"
A+

Vincent.

PS : j'ai pas pris le temps de tester :/

-----Message d'origine-----
Bonjour,

Comment écrire en VBA Excel le code pour insérer la
fonction "SOMME" en bas

d'une colonne qui peut avoir des tailles différentes ?
Par exemple: pour faire le total dans la cellule "A11"
acec des chiffres

dans "A3:A10",
je pensais pouvoir écrire:

ligne = 10
ActiveCell.Formula = " =SUM(" A3:A " & ligne)"

mais ça ne fonctionne pas, ni avec:

FormulaR1C1 = "=SUM(R[-ligne-2]C:R[-1]C)"

(en réalité, je détermine la variable "ligne" avec
CurrentRegion.Rows.Count, mais pour tester la formule, je
simplifie).


Merci de votre aide


.



Avatar
Pataboum
Bonjour Alain,

Merci pour ta solution, elle fonctionne.

René

"AV" a écrit dans le message de
news:
Sub zzz()
ligne = [A65536].End(3).Row
'pour écrire la formule
'Cells(ligne + 1, "A") = "=SUM(A3:A" & ligne & ")"
'pour écrire le résultat
Cells(ligne + 1, "A") = Application.Sum(Range("A3:A" & ligne))
End Sub

PS : A part ça, c'est pas une vraie bonne idée de mettre une somme en fin
de

colonne...
AV