Somme totale des colonnes avec une macro

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 !

INFINITY100

XLDnaute Occasionnel
Bonjour

Voila j'ai sous la main une macro qui additionne la totalité des sommes se trouvant en colonne B et jusque là ça marche bien, seulement je voudrai faire de même pour les autres colonnes C.D.E ... etc

Donc je voudrai modifier la macro ci-dessous de sorte à avoir ce que je recherche

Voici ma macro

Code:
Sub Test()
'Mettre le mot "TOTAL" dans la dernière ligne vide de la colonne A
[B1048576].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(, -1) = "Total"
'Mettre la formule "SOMME" dans la dernière ligne vide de la colonne B
If ActiveCell.Row > 5 Then
   ActiveCell = "=SUM(B5:B" & ActiveCell.Offset(-1, 0).Row & ")"
End If
End Sub

Et je joins le fichier pour êtres plus claire

Merci à vous tous

Cordialement
 

Pièces jointes

Bonsoir INFINITY100, Philippe, zebanx,
Code:
Sub Total()
With [A5].CurrentRegion
  If .Cells(.Rows.Count, 1) = "Total" Then .Rows(.Rows.Count).Delete xlUp 'RAZ
  .Rows(.Rows.Count + 1) = "=SUM(" & .Columns(1).Address(0, 0) & ")"
  .Cells(.Rows.Count + 1, 1) = "Total"
End With
End Sub
On peut exécuter la macro plusieurs fois de suite sans inconvénient.

Et la macro fonctionne bien même si le tableau est filtré.

A+
 
Merci Job75 pour ces précisions.

Extrêmement épuré, diablement efficace, comme habituellement😱🙂

Faire une formule sur "x" colonnes et "y" lignes en 7 lignes dont une qui ne sert qu'à rajouter le mot "total" c'est remarquable. Donc merci d'avoir proposé ce code-là, pour ceux qui veulent apprendre, c'est chouette.

Bonne nuit.
 
bonjour Zebanx

oui comme tu as dit c'est vraiment chouette. et pour amélioré encore plus l'idée je voudrai aussi réaliser aussi un code qui renvoi les même somme dans le cellules approprier histoire d'avoir un tableau récapitulatif juste au début de page

voir fichier joint

merci à vous tous
 

Pièces jointes

re
Re, salut Si...
Bah c'était pour ceux qui ne connaissent pas les TCD...

C'est mon cas 😕 donc je fais sans, surtout que l'utilisation de l'outil Tableau* permet bien des choses sans se préoccuper de savoir quel est l'onglet de référence, quels Formats, quelles MFC ,Formules seront copiées …

Job 😉, c'est une de mes grandes lacunes, et hélas, pas la seule.

*quand on les manipule un tant soit peu
 
Bonsoir à tous,

Deux autres méthodes par VBA (sommeprod et find) pour la galerie et parce que c'est un bon entrainement.

Trop long pour Job75 mais si la question a été posée pour avoir du code VBA plutôt que des formules ou un TCD, ça me parait pas trop mal.

(surtout si Job75 - ou un autre master- s'y recolle pour éliminer la moitié des lignes !! 😛).

++
zebanx
 

Pièces jointes

Dernière édition:
- 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

Retour