Discussion :

[ESVBA]

Bonsoir,

Lors de l'application d'un filtre sur un T.C.D. (PageField), Excel n'affiche pas les valeurs sélectionnées manuellement.
Lors d'une impression, on ne connait donc pas les valeurs de filtrage représentant le tableau.


Actuellement, j'arrive avec un code de ce genre à obtenir le critère de filtrage d'un TCD :

Code :

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

1
2
3
Function FilterString() As String
    FilterString = ActiveSheet.PivotTables("TCD1").PivotFields("Col3").CurrentPage
End Function

Le problème est lorsque l'on utilise plusieurs critères de filtrage: j'obtiens toujours "(All)".

Code :

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

1
2
3
4
5
    ActiveSheet.PivotTables("TCD1").PivotFields("Col3").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("TCD1").PivotFields("Col3")
        .PivotItems("1").Visible = True
        .PivotItems("12").Visible = True
    End With

Si j'ai bien compris, il faudrait se balader sur toutes les valeurs de "PivotItelms" et tester la propriété "Visible".

Mon problème est comment récupérer la collection "PivotItems" ?

N'y a-t-il pas plus simple, plus rapide ?

Merci.

ESVBA

[ESVBA]

Je n'arrive pas à tester si la case à cocher "(vide)" l'est ou pas avec cette formule qui fonctionne avec les autres valeurs.

Code :

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

If .PivotItems(.PivotItems.Item(It).Name).Visible = True Then

Erreur :

Impossible de lire la propriété PivotItems de la classe PivotField

ESVBA

[Bono781]

Bonjour,
il existe un itme (le dernier), dont la caption "(blanck)" est activable ou non (visible)
Bono.