Discussion :

[DPhBxl]

Bonjour,

Pourriez-vous me dire comment facilement filtrer en VBA un tableau croisé dynamique (onglet 1) en fonction d'une liste de valeurs (onglet 2) ?
Exemple : J'ai un TDC contenant + de 100 noms. Je voudrai filtrer en fonction d'une liste de 10 noms.

Merci d'avance pour votre aide,

Philippe

[78chris]

Bonjour

Ces 10 noms sont toujours les mêmes ?

Si oui groupe les dans le TCD et utilise le champ correspondant au groupe

[DPhBxl]

Non la colonne ne contient pas toujours les mêmes noms et pas le même nombre de noms et il ne s'agit pas de grouper les valeurs mais de ne faire apparaître que les valeurs d'une liste de personnes.
Un peu comme si j'utilisais un VLOOKUP pour ne cocher dans le filtre TDC que les noms qui apparaissent dans une liste présente dans un onglet séparé.

[78chris]

RE

il ne s'agit pas de grouper les valeurs mais de ne faire apparaître que les valeurs d'une liste de personnes

C'est justement ce que l'affichage d'un groupe de personnes permet

Si tu ne veux pas utiliser un segment, par VBA avec une liste dans une plage nommée Liste

Code :

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

1
2
3
4
5
6
7
8
9
10
With ActiveSheet.PivotTables("NomTCD").PivotFields("NomChamp")
        .ClearAllFilters
        For Each Fit In .PivotItems
            Ok = False
            For Each cellule In Range("Liste")
                If Fit = cellule Then Ok = True: Exit For
            Next
            If Ok <> True Then Fit.Visible = False
        Next
End With

[DPhBxl]

Merci Chris. Je me débrouillerais avec çà