Sujet Précédent Sujet Suivant

Showtotals dans tableau excel

Résolu/Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 21 nov. 2017 à 09:52
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 30 nov. 2017 à 09:09
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 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 21 nov. 2017 à 14:03
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
21 nov. 2017 à 18:09
Bonjour thev,

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

Bonne soirée.

Pascal
0
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
21 nov. 2017 à 18:21
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
21 nov. 2017 à 18:45
Petite rectification, je commence à la 1ere feuille.
0
Réponse 3 / 5
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
21 nov. 2017 à 19:20
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
23 nov. 2017 à 19:57
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
30 nov. 2017 à 09:09
Bonjour thev,

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

Bonne journée.

Pascal
0