XL 2019 Somme en VBA

Gribouille66

XLDnaute Nouveau
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
 
Solution
@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 !!!

VB:
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

XLDnaute Nouveau
@Gribouille66

Merci bien pour avoir validé ma solution;)



En fait c'est très simple tu valides la solution que tu as retenu et mis en application dans ton fichier

*A noter que l'on ne peut valider qu'une solution.

@Phil69970
je te remercie de m'avoir aider, j'ai pas très compris le mécanisme par contre j'ai très bien compris ta solution que j'ai bien sur mis dans mon programme
bonne soirée
 

Discussions similaires

Statistiques des forums

Discussions
312 229
Messages
2 086 425
Membres
103 206
dernier inscrit
diambote