XL 2019 Somme en VBA

[Gribouille66]

Bonjour à toutes, à tous
avec EXCEL (office 2019)
j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne
mais ça plante la macro au niveau de la formule

Si vous avez une solution, je suis preneur

j'ai fait une boucle (For to next), ça fonctionne mais la somme
est très peu différente (0.01)

si vous avez le temps de vous pencher sur mon problème
Merci

 

[Phil69970]

Bonjour @Gribouille66

Je te propose :

La somme est dans une variable

Sub MaSomme()
Dim Total&
Total = Application.Sum([A:A])  '<== Colonne à adapter à ton fichier
MsgBox Total
End Sub

Et si tu veux avoir le résultat en B1 par exemple

[B1] = Application.Sum([A:A])

*Merci de ton retour

@Phil69970

 

[Jacky67]

Bonjour à toutes, à tous
avec EXCEL (office 2019)
j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne
mais ça plante la macro au niveau de la formule

Si vous avez une solution, je suis preneur

j'ai fait une boucle (For to next), ça fonctionne mais la somme
est très peu différente (0.01)

si vous avez le temps de vous pencher sur mon problème
Merci

Bonjour,
Essaye

ActiveCell.Formula = "=SUM(a:a)"

Ou mettre le classeur en PJ

 

[Gribouille66]

Bonjour,
Essaye

ActiveCell.Formula = "=SUM(a:a)"

Ou mettre le classeur en PJ

j'ai essayé
j'ai tenté et retenté sans espoir de ma part
je vous joins le fichier qui sera plus explicite
merci de m'aider

 

[Phil69970]

Re

@Gribouille66

Je ne suis pas sur que tu lis tous les messages ....

Et si tu veux avoir le résultat en B1 par exemple

[B1] = Application.Sum([A:A])

Le code adapté à ton fichier :

Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Derlig) = Application.Sum([H:H])
Range("I" & Derlig) = Application.Sum([I:I])
End Sub

Et avec le fichier !!!

*Merci de ton retour

@Phil69970

 

[Staple1600]

Bonsoir

A des fins purement récréatives
(quoique...)

Sub Sommation_sans_tir()
Dim Bazinga$
Bazinga = ActiveCell.CurrentRegion.Address
Set Ma_Somme = Cells(Rows.Count, ActiveCell.Column).End(3)(2)
MaSomme = Application.Sum(Range(Bazinga))
Ma_Somme.Value = MaSomme
End Sub

 

[Gribouille66]

Re

@Gribouille66

Je ne suis pas sur que tu lis tous les messages ....



Le code adapté à ton fichier :

Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Derlig) = Application.Sum([H:H])
Range("I" & Derlig) = Application.Sum([I:I])
End Sub

Et avec le fichier !!!

*Merci de ton retour

@Phil69970

c'est magnifique mais petit problème l'addition prend toute la colonne mais sur les 6ères lignes
il y a des nombres qui ne doivent pas s'ajouter
je reconnais que je suis pas simple et que vous êtes formidable et à l'écoute de nos soucis
merci...

 

[Dranreb]

Bonsoir.

j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne

Ce n'est pas ça qu'il fallait faire. Il fallait mettre le numéro de la ligne de départ, si elle ne change jamais, juste derrière le R et sans crochet. Si c'est la 10 par exemple :

ActiveCell.FormulaR1C1 = "=SUM(R10C:R[-1]C)"

 

[Phil69970]

@Gribouille66

1)

je reconnais que je suis pas simple

Non c'est pas cela mais quand on feuilletonne l'énoncé c'est un peu agaçant
Tu peux pas donner toutes les infos en une seul fois

2)
Tu connais la soustraction ?

Donc quand tu dois enlever les 8 premières lignes

Tu fais toutes les lignes - 8 premières lignes !!!

Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1

Range("H" & Derlig) = Application.Sum([H:H]) - Application.Sum([H1:H8])
Range("I" & Derlig) = Application.Sum([I:I]) - Application.Sum([I1:I8])

End Sub

3)

vous êtes formidable et à l'écoute de nos soucis

Là je suis d'accord

@Phil69970

 

[Gribouille66]

@Gribouille66

1)

Non c'est pas cela mais quand on feuilletonne l'énoncé c'est un peu agaçant
Tu peux pas donner toutes les infos en une seul fois

2)
Tu connais la soustraction ?

Donc quand tu dois enlever les 8 premières lignes

Tu fais toutes les lignes - 8 premières lignes !!!

Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1

Range("H" & Derlig) = Application.Sum([H:H]) - Application.Sum([H1:H8])
Range("I" & Derlig) = Application.Sum([I:I]) - Application.Sum([I1:I8])

End Sub

3)

Là je suis d'accord

@Phil69970

comme dirait un...mais c'est bien sur, ça m'a pas fait TILT
vous êtes vraiment les meilleurs
merci
bonne nuit

 

[Gribouille66]

Bonsoir

A des fins purement récréatives
(quoique...)

Sub Sommation_sans_tir()
Dim Bazinga$
Bazinga = ActiveCell.CurrentRegion.Address
Set Ma_Somme = Cells(Rows.Count, ActiveCell.Column).End(3)(2)
MaSomme = Application.Sum(Range(Bazinga))
Ma_Somme.Value = MaSomme
End Sub

merci, toutes les aides sont précieuses

 

[Phil69970]

@Gribouille66

comme dirait un...mais c'est bien sur,

Mais , j'ai pas compris pourquoi tu as validé ton post comme solution alors que tu n'as pas trouvé la solution.
La logique est de validé la solution que tu as choisis et appliqué dans ton fichier

@Phil69970

 

[Gribouille66]

@Gribouille66


Mais , j'ai pas compris pourquoi tu as validé ton post comme solution alors que tu n'as pas trouvé la solution.
La logique est de validé la solution que tu as choisis et appliqué dans ton fichier

@Phil69970

parce que je me suis trompé, je devais valider et j'ai cliqué, je ne suis pas habitué
mille excuses à tous

 

[Phil69970]

@Gribouille66

Rien ne t’empêche de changer ta validation

@Phil69970

 

[Gribouille66]

j'espère que j'ai cliqué au bon endroit
merci