Showtotals dans tableau excel

Résolu/Fermé
Signaler
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019
-
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019
-
Bonjour,

Je cherche le code pour mettre en fin de mon tableau la ligne des totaux qui se trouve dans le ruban création.

Je l'ai mis en fin de comptage et supprimer les lignes vides, mais ça bug.

Merci pour votre aide.

Pascal

'End Sub

Sub EFFACELESLIGNESREBELLES()
Dim last As Variant
Dim ligne_libre As Variant
last = Range("A" & Rows.Count).End(xlUp).Row
MsgBox "La dernière ligne est la " & last & "ième" ' juste pour se contrôler ...
Rows(last + 1 & ":" & Rows.Count).Select
Selection.Delete Shift:=xlUp
Selection.ShowTotals = True
End Sub

5 réponses

Messages postés
1770
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
11 novembre 2021
662
Bonjour,

En supposant que ton tableau se trouve sur la feuille active et qu'il soit le seul
Sub affiche_lig_tot()

With ActiveSheet.ListObjects(1)
.ShowTotals = True
End With

End Sub



 
0
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019

Bonjour thev,

Merci pour ta réponse, cela fonctionne très bien.

Bonne soirée.

Pascal
0
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019

je sais j'ai clôturé, mais je demande quand même:

Pour le faire tourner dans un classeur, j'ai besoin de commencer à la 2eme feuille et de ne pas faire la dernière, et je n'ai pas toujours le même nombre de feuille.

Oui car j'ai plusieurs classeurs avec ce code.

Merci.

Pascal.
0
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019

Petite rectification, je commence à la 1ere feuille.
0
Messages postés
1770
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
11 novembre 2021
662
Le code ci-dessous devrait répondre à ta question.
S'il existe un tableau dans la feuille en cours de traitement, la ligne total sera ajoutée, sinon l'exécution continuera sans erreur.
    Dim feuille As Worksheet
Dim tableau As ListObject

Set feuille = ActiveSheet
For Each tableau In feuille.ListObjects
tableau.ShowTotals = True
Next tableau
0
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019

Bonsoir thev,

Après plusieurs essais cela fonctionne bien.

Je te remercie pour ton aide.

Bonne soirée.
0
Messages postés
271
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
25 novembre 2019

Bonjour thev,

Merci pour le code j'ai réussi à le mettre dans ma boucle et cela fonctionne.

Bonne journée.

Pascal
0