Showtotals dans tableau excel

Résolu
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -  
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

5 réponses

Réponse 1 / 5
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
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
Réponse 2 / 5
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour thev,

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

Bonne soirée.

Pascal
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Petite rectification, je commence à la 1ere feuille.
0
Réponse 3 / 5
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
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
Réponse 4 / 5
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir thev,

Après plusieurs essais cela fonctionne bien.

Je te remercie pour ton aide.

Bonne soirée.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour thev,

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

Bonne journée.

Pascal
0