TBC Réduire toutes les étiquettes de lignes d'un coup

Bonjour, sur excel j'ai un TBC avec plusieurs étiquettes de ligne classé ainsi : Région, Ville, Nom.

Je recherche la solution pour réduire l'ensemble des étiquettes de ligne "Ville" d'un coup (car + de 150 villes...) tout en gardant l'étiquette de ligne "Nom" mais seulement en masqué, qui pourra être ouverte si besoin.

Pour l'instant, ma seule solution est de réduire manuellement ville par ville....

Merci pour votre réponse !

Que penses-tu de l'envoi d'un fichier avec des explications?

Bonjour et merci !

Je n'ai pas le fichier avec moi mais celui-çi fera l'affaire!

Je te propose la macro suivante (elle est adaptée à mes besoins)

Sub Données_Détails_Masquer_tout()
    Cells.Select
    Range("A260").Activate
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveCell.SpecialCells(xlLastCell).Select
    Range("A3").Select
    Range("A1").Select
    ActiveWindow.LargeScroll Down:=-5000
End Sub

Bonjour,

Une proposition (pas la seule) :

Option Explicit
Private Sub chkAfficherMasquer_Click()
Dim strPT As String, strPF As String
Dim pi As PivotItem

    Application.ScreenUpdating = False
    strPT = "TCD_1"
    strPF = "commercial"
    ActiveSheet.PivotTables(strPT).ManualUpdate = True
    If chkAfficherMasquer Then
        chkAfficherMasquer.Caption = "Afficher"
        For Each pi In PivotTables(strPT).PivotFields(strPF).PivotItems
            pi.ShowDetail = False
        Next
    Else
        chkAfficherMasquer.Caption = "Masquer"
        For Each pi In PivotTables(strPT).PivotFields(strPF).PivotItems
            pi.ShowDetail = True
        Next
    End If
    ActiveSheet.PivotTables(strPT).ManualUpdate = False

End Sub

Bonjour,

ou bien décocher FAM dans la liste des champs, et le recocher quand tu veux le détail.

eric

Re,

Bonsoir Eriiic,

Donc plusieurs solutions

Impeccable, ça fonctionne niquel, je vous remercie !