Discussion :

[CoSmOzzz]

Bonjour à tous,

J'ai lu cette discussion et je rencontre la même problématique de choix multiples d'items dans le champ d'un TCD.

Pas testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2()
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Lieu[All]", xlLabelOnly, _
        True
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lieu")
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Name = "Interne Paris" Then
                .PivotItems(i).Visible = True
            Else
                .PivotItems(i).Visible = False
            End If
        Next i
    End With
End Sub

La solution proposée fonctionne également pour moi. Par contre mon PivotField contient plus de 2500 valeurs et le balayage des valeurs une à une pour les passer en True ou False est excessivement long (plusieurs minutes) !
Connaissez vous un moyen d'optimiser ce code pour rendre son exécution plus rapide ?

Par avance merci !