Showtotals dans tableau excel
Résolu
pascalou83400
Messages postés
281
Statut
Membre
-
pascalou83400 Messages postés 281 Statut Membre -
pascalou83400 Messages postés 281 Statut Membre -
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
A voir également:
- Showtotals dans tableau excel
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
- Tableau ascii - Guide
- Liste déroulante excel - Guide
5 réponses
Bonjour,
En supposant que ton tableau se trouve sur la feuille active et qu'il soit le seul
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
Bonjour thev,
Merci pour ta réponse, cela fonctionne très bien.
Bonne soirée.
Pascal
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.
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.
Après plusieurs essais cela fonctionne bien.
Je te remercie pour ton aide.
Bonne soirée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question