Discussion :

[iliesss]

bonjour
je travail sur les tableau croisé dynamique en VBA et je suis coinsé dans cette expression

Code :

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

pt.AddFields RowFields:="Clé", ColumnFields:="COMPTE"

je cherche a ne pas afficher tous les éléments de la colonne COMPTE je souhaite trois élément du champs "COMPTE" par exemple "4451801" "7014000" "235415"

Salutations

[Pierre Fauconnier]

Salut


Jamais compris pourquoi on devait placer les champs d'un TCD par macro. Y a des choses qui me dépassent.

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
  Dim pt As PivotTable
  Dim Visibles
  Dim i As Long
  Dim Item As PivotItem
 
  Visibles = "4451801;7014000;235415"
  Set pt = Feuil1.PivotTables(1)
  pt.AddFields RowFields:="Clé", ColumnFields:="Compte"
  For Each Item In pt.PivotFields("Compte").PivotItems
    If InStr(1, Visibles, Item.Value) > 0 Then
      Item.Visible = True
    Else
      Item.Visible = False
    End If
  Next
End Sub

[iliesss]

Salut Mr Pierre Fauconnier
je vous remercier pour votre solution oui c'est parfait

je travaille dans une entreprise avec des subordonnés nul en Excel je doit automatiser tous les taches parmi les des choses qui vous dépassent

salutation cordialement.

[Pierre Fauconnier]

Tant mieux que ça convienne.

Filtrer un TCD par VBA, pourquoi pas? Mais structurer le TCD par VBA, je ne comprends pas. Si on on place les "champs" en ligne et en colonne par des références "en dur", alors on sait les placer via l'interface et le VBA qui place les champs (pas qui les filtre, c'est autre chose) est juste inepte.

Réinventer l'interface (en moins bien, forcément) au lieu de former les utilisateurs, c'est sûr que c'est gagnant 😉

[Pierre Fauconnier]

Perso, je créerais la liste des comptes à reprendre, je m'arrangerais pour mettre VRAI dans une colonne en fonction des données présentes dans la liste et je placerais un champ de filtre sur la colonne du VRAI.

Tout cela peut se faire sans VBA. 30 ans de carrière, et jamais eu à piloter le filtre d'un TCD par VBA 🙄