Macro pour cocher plusieurs cases d'un champ de TCD

Bonjour,

Besoin de votre aide.

j'ai un TCD et je souhaite en fonction d'une liste de points de vente sélectionnés dans une listbox d'un userform que le TCD

n'affiche que les points de ventes sélectionnés. Ci-dessous une extraction de la macro créé.

Le problème est que quelque soit le nombre de points de vente sélectionnés dans la listbox, le TCD ne filtre au maximum que 2 points de vente...A partir de 3 points de vente sélectionnés, le rendu n'est donc pas bon.

Merci pour votre aide précieuse !

With ActiveSheet.PivotTables("CA 1").PivotFields("PDV")

On Error Resume Next

ActiveSheet.PivotTables("CA 1").PivotFields("PDV").ClearAllFilters

'ActiveSheet.PivotTables("CA 1").PivotFields("PDV").PivotItems("(Sélectionner tout)").Visible = True

For Each j In pdv

If pdv.Selected(j) Then

For i = 1 To .PivotItems.Count

If .PivotItems.Item(i) = pdv.List(j) Then

.PivotItems.Item(i).Visible = True

Else: .PivotItems.Item(i).Visible = False

End If

Next

End If

Next

On Error GoTo 0

End With

bonjour

il existe un truc fabuleux pour les TCD : les segments

c'est pile ce que tu cherches. Microsoft l'a fait exprès pour toi.