Probleme TCD

Bonjour,

J'ai un TCD qui contient des entetes, et sur une de ces entetes, je voudrais faire un filtrage,du coup ,je veux cacher tous les valeurs 0 de cette colonne(Somme)

J'ai ecris ce code mais ca marche pas, qlqu' un peut m'aider svp?

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("somme")

For i = 0 To .PivotItems.Count

If .PivotItems(i) Like "0" Then

.PivotItems(i).Visible = False

End If

Next

End With

Merci,

Bonjour

Essaie ceci :

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Total")
For Each Item In .DataRange
If Item.Value = 0 Then
Range(Item.Address).EntireRow.Hidden = True
End If
Next
End With

Si ok, lors de ta réponse, cloture le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Rechercher des sujets similaires à "probleme tcd"