XL 2019 Somme en VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
134
Réponses
3
Affichages
393
Retour