tableau croisé dynamique en VBA (ColumnFields:=) uniquement trois élément

Version imprimable

22/01/2024, 15h21
iliesss

tableau croisé dynamique en VBA (ColumnFields:=) uniquement trois élément

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

Code:

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

Salut

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

Code:

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

22/01/2024, 21h48
iliesss

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

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 :rire:

salutation cordialement.
22/01/2024, 21h57
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 😉
22/01/2024, 22h07
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 🙄