Showtotals dans tableau excel
Résolu
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
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
-
Bonjour,
En supposant que ton tableau se trouve sur la feuille active et qu'il soit le seulSub affiche_lig_tot()
With ActiveSheet.ListObjects(1)
.ShowTotals = True
End With
End Sub
-
Bonjour thev,
Merci pour ta réponse, cela fonctionne très bien.
Bonne soirée.
Pascal -
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 -
Bonsoir thev,
Après plusieurs essais cela fonctionne bien.
Je te remercie pour ton aide.
Bonne soirée. -
Bonjour thev,
Merci pour le code j'ai réussi à le mettre dans ma boucle et cela fonctionne.
Bonne journée.
Pascal
