Supprimer des sous-totaux dans excel en cas de monoligne dans un TCD

  • Initiateur de la discussion Initiateur de la discussion Lucius.K
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lucius.K

XLDnaute Nouveau
Bonjour,

Je suis nouveau sur ce forum qui m'a rendu ma foi bien des services, aussi veuillez excuser mon manque d'expérience et de précision dans ma demande.
Je n'ai également pas reussi à trouver de réponse satisfaisante dans le forum, mais peut être ai-je mal cherché.

Windows : XP
EXCEL : 2003

Dans un Tableau croisé dynamique ayant plusieurs champs en ligne, je demande à faire des sous totaux. Toutefois, certains sous totaux sont fait de la somme d'un seul chiffre, ce qui, dans la présentation, pollue la lecture car cela affiche deux fois le meme chiffre.

Existe t-il un moyen (macro/reglage) de supprimer l'une des deux lignes de manière automatique?

A noter : ce tableau n'est pas fixe et est amené à changer tres souvent dans son nombre de ligne, aussi aucune ligne n'est fixe.

Je vous remercie par avance de l'attention que vous porterez à ma requète.
 
Dernière édition:
Re : Supprimer des sous-totaux dans excel en cas de monoligne dans un TCD

Non non, 🙂
J'ai du mal m'exprimer, je n'ai pas de problème de ligne vide/à 0, je veut juste automatiser la supression de totaux qui totalisent une seul ligne (quel que soit son montant), sans pour autant supprimer les totaux qui totalisent plusieurs lignes, et tout ca, dans la même colonne.

Merci.
 
Re : Supprimer des sous-totaux dans excel en cas de monoligne dans un TCD

re 🙂

So sorry Lucius, j'avais mal compris.

En plus ..... je ne sais pas faire 🙁

Je passe la main, mais d'autres ici sauront certainement vous répondre.

Bon courage,

Mth
 
Re : Supprimer des sous-totaux dans excel en cas de monoligne dans un TCD

Bonjour à tous,

J'au eu du mal mais je te propose ça :

Code:
Sub test()
Dim PI As PivotItem, Lignes As Long
Application.screenupdating = false
For Each PI In ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Champ1").PivotItems
    On Error GoTo Finboucle
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect "'" & PI.Name & "'", _
        xlDataAndLabel, True
    Lignes = Selection.Rows.Count
        If Lignes <= 1 Then
            ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Champ1"). _
                PivotItems(PI.Name).ShowDetail = False
        Else
            ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Champ1"). _
                PivotItems(PI.Name).ShowDetail = True
        End If
Finboucle:
    Next PI
Application.screenupdating = true
End Sub

Avec :
"Tableau croisé dynamique2" : le nom de ton tableau croisé
"Champ1" : le nom de ton 1er champ de ligne
 
Re : Supprimer des sous-totaux dans excel en cas de monoligne dans un TCD

Grand merci!

Je vais l'essayer, toutefois, n'ayant jamais fait de macro sur des tableaux croisés dynamique, je ne suis pas certain d'arriver à la faire marcher, mais je vais essayer.

Merci encore pour ton aide, puisse-tu avoir besoin de la mienne un jour.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour