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