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 colonne en vba

total colonne en vba

6 réponses
Avatar
Freedo
Bonjour =E0 Toutes et =E0 Tous,
Comment faire par VBA la somme des montants en bas d'une=20
colone sur la derni=E8re cellule vide:
en colonne B j'ai des montants =E0 partir de B3
j'aimerais faire le total de la colonne B apr=E8s le dernier=20
montant, puis remonter 1ligne et se placer en colonne A.
merci de suivre,
Freedo
Signaler un problème avec ce contenu

6 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
papou
Bonjour Freedo
Une manière de faire (ici la somme se fait à partir de la ligne 2 pour le
cas où la 1ère ligne contiendrait un libellé) :
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" & DernLigne & "C2)"
Cells(DernLigne, 1).Select

Cordialement
Pascal

"Freedo" a écrit dans le message de
news:c9f701c3ba33$59a37990$
Bonjour à Toutes et à Tous,
Comment faire par VBA la somme des montants en bas d'une
colone sur la dernière cellule vide:
en colonne B j'ai des montants à partir de B3
j'aimerais faire le total de la colonne B après le dernier
montant, puis remonter 1ligne et se placer en colonne A.
merci de suivre,
Freedo
Avatar
freedo
Bonjour Papou,
Merci pour ta réponse !
j'ai ajouté la variable Dim Dernligne as Integer
et modifié =sum(R3c2....
j'ai une erreur 400
Je n'arrives pas à avoir le montant total.
J'avais mis manuellement ceci qui fonctionnait:
Range("b3").Select
DerLigne = Range("b3").End(xlDown).Row
Range("b3:a" & DerLigne).Select
Worksheets("RécapFacture").Range("A65536").End(xlUp)
(2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-31]C:R[-1]C)"
ActiveCell.FormulaR1C1 = "Total factures :"
peux-tu me dire où çà oinc ?
Cordialement,
Freedo
-----Message d'origine-----
Bonjour Freedo
Une manière de faire (ici la somme se fait à partir de
la ligne 2 pour le

cas où la 1ère ligne contiendrait un libellé) :
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" &
DernLigne & "C2)"

Cells(DernLigne, 1).Select

Cordialement
Pascal

"Freedo" a écrit
dans le message de

news:c9f701c3ba33$59a37990$
Bonjour à Toutes et à Tous,
Comment faire par VBA la somme des montants en bas d'une
colone sur la dernière cellule vide:
en colonne B j'ai des montants à partir de B3
j'aimerais faire le total de la colonne B après le
dernier

montant, puis remonter 1ligne et se placer en colonne A.
merci de suivre,
Freedo


.



Avatar
papou
Freedo
Je ne vois pas du tout où cela pourrait coincer ça fontionne
parfaitement....
As-tu bien recopié les 3 lignes telles quelles ci dessous (attention aux
retours à la ligne éventuels dans le message et au nombre de "")
...
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" & DernLigne & "C2)"
Cells(DernLigne , 1).Select

Cordialement
Pascal

"freedo" a écrit dans le message de
news:09dc01c3ba52$ab988550$
Bonjour Papou,
Merci pour ta réponse !
j'ai ajouté la variable Dim Dernligne as Integer
et modifié =sum(R3c2....
j'ai une erreur 400
Je n'arrives pas à avoir le montant total.
J'avais mis manuellement ceci qui fonctionnait:
Range("b3").Select
DerLigne = Range("b3").End(xlDown).Row
Range("b3:a" & DerLigne).Select
Worksheets("RécapFacture").Range("A65536").End(xlUp)
(2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-31]C:R[-1]C)"
ActiveCell.FormulaR1C1 = "Total factures :"
peux-tu me dire où çà oinc ?
Cordialement,
Freedo
-----Message d'origine-----
Bonjour Freedo
Une manière de faire (ici la somme se fait à partir de
la ligne 2 pour le

cas où la 1ère ligne contiendrait un libellé) :
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" &
DernLigne & "C2)"

Cells(DernLigne, 1).Select

Cordialement
Pascal

"Freedo" a écrit
dans le message de

news:c9f701c3ba33$59a37990$
Bonjour à Toutes et à Tous,
Comment faire par VBA la somme des montants en bas d'une
colone sur la dernière cellule vide:
en colonne B j'ai des montants à partir de B3
j'aimerais faire le total de la colonne B après le
dernier

montant, puis remonter 1ligne et se placer en colonne A.
merci de suivre,
Freedo


.



Avatar
AV
j'ai ajouté la variable Dim Dernligne as Integer


Si tu as une erreur 400 c'est pas la cause mais c'est quand même pas une bonne
idée car si ta "Dernligne" est au-delà de 32 767, ça va coincer ...
Mieux vaut pas de déclaration ou as Double

AV

Avatar
Freedo
Bonsoir Papou,
J'ai fais textuellement ce que tu m'as dis mais je n'ai
pas de résultats;
J'ai bricolé (mais alors là vraiment bricolé)ceci qui à
l'air de fonctionner
Worksheets("RécapFacture").Activate
DernLigne = Range("a65536").End(xlUp).Row
ActiveCell(2, 0).FormulaR1C1 = "Total factures :"
ActiveCell(2, 2).FormulaR1C1 = "=sum(R3c2:R" & DernLigne
& "C2)"
Cordialement,
Freedo
-----Message d'origine-----
Freedo
Je ne vois pas du tout où cela pourrait coincer ça
fontionne

parfaitement....
As-tu bien recopié les 3 lignes telles quelles ci
dessous (attention aux

retours à la ligne éventuels dans le message et au
nombre de "")

...
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" &
DernLigne & "C2)"

Cells(DernLigne , 1).Select

Cordialement
Pascal

"freedo" a écrit
dans le message de

news:09dc01c3ba52$ab988550$
Bonjour Papou,
Merci pour ta réponse !
j'ai ajouté la variable Dim Dernligne as Integer
et modifié =sum(R3c2....
j'ai une erreur 400
Je n'arrives pas à avoir le montant total.
J'avais mis manuellement ceci qui fonctionnait:
Range("b3").Select
DerLigne = Range("b3").End(xlDown).Row
Range("b3:a" & DerLigne).Select
Worksheets("RécapFacture").Range("A65536").End(xlUp)
(2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-31]C:R[-1]C)"
ActiveCell.FormulaR1C1 = "Total factures :"
peux-tu me dire où çà oinc ?
Cordialement,
Freedo
-----Message d'origine-----
Bonjour Freedo
Une manière de faire (ici la somme se fait à partir de
la ligne 2 pour le

cas où la 1ère ligne contiendrait un libellé) :
DernLigne = Range("B65536").End(xlUp).Row
Cells(DernLigne + 1, 2).FormulaR1C1 = "=sum(R2c2:R" &
DernLigne & "C2)"

Cells(DernLigne, 1).Select

Cordialement
Pascal

"Freedo" a écrit
dans le message de

news:c9f701c3ba33$59a37990$
Bonjour à Toutes et à Tous,
Comment faire par VBA la somme des montants en bas d'une
colone sur la dernière cellule vide:
en colonne B j'ai des montants à partir de B3
j'aimerais faire le total de la colonne B après le
dernier

montant, puis remonter 1ligne et se placer en colonne A.
merci de suivre,
Freedo


.




.




Avatar
freedo
Bonsoir Alain,
Merci pour tes conseils, j'ai annulé la variable et je
n'ai plus l'erreur mais j'ai dû bricolé pas mal pour
avoir quelque chose de concret;
Vois la réponse à Papou;
Cordialement
freedo
-----Message d'origine-----
j'ai ajouté la variable Dim Dernligne as Integer


Si tu as une erreur 400 c'est pas la cause mais c'est
quand même pas une bonne

idée car si ta "Dernligne" est au-delà de 32 767, ça va
coincer ...

Mieux vaut pas de déclaration ou as Double

AV


.