VBA Filtre TCD

Version imprimable

VBA Filtre TCD

Bonjour,

Je souhaiterais filtrer un TCD par rapport au montant. Faire 2 tableau l'un affichant tous les montants positifs, l'autre tous les montant négatifs.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        With ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû")                    ' Filtre selon le champs défini
            ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû").ClearAllFilters         ' Supprime tous les précédents filtres
            ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû").EnableMultiplePageItems = True
 
                For Each valeurFiltre In .PivotItems
                If valeurFiltre < 0 Then valeurFiltre.Visible = False
                Next
 
                For j = 1 To .PivotItems.Count
                    If .PivotItems(j).Value = "0" Or .PivotItems(j).Value = "(Vide)" Then
                           .PivotItems(j).Visible = False                                       ' TCD Filtré sur les cellules à 0.00
                    End If
                Next j
        End With

09/08/2021, 15h15
Pierre Fauconnier

Salut

Crée-les en Excel directement. Il te suffira de les mettre à jour (éventuellement en VBA). VBA pour mettre les filtres en place me semble superflu. Ca n'a pas de sens de réaliser cela par VBA. Le temps de poser la question, tu aurais déjà la solution mise en place.

Non, car le but est de tout automatiser, l'actualisation des tcd sont automatique (via ma macro.
Mais j'ai trouvé la solution que je partage pour ceux qui rencontrerons le même probleme.
Il suffisait de convertir la valeur d u filtre du type variant au type double car je ne veux que les valeurs positives ou négatice.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        With ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû")                    ' Filtre selon le champs défini
            ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû").ClearAllFilters         ' Supprime tous les précédents filtres
            ActiveSheet.PivotTables("Tableaucroisédynamique1").PivotFields("Total dû").EnableMultiplePageItems = True
 
 
                For Each valeurFiltre In .PivotItems
                valeurMontant = Val(valeurFiltre)
                If valeurMontant < 0 Then valeurFiltre.Visible = False
                Next valeurFiltre
 
                For j = 1 To .PivotItems.Count
                valeurFiltre = .PivotItems(j).Value
                    If .PivotItems(j).Value = "0" Or .PivotItems(j).Value = "(Vide)" Then
                           .PivotItems(j).Visible = False                                       ' TCD Filtré sur les cellules à 0.00
                    End If
                Next j
        End With

09/08/2021, 15h51
Pierre Fauconnier

Tant mieux si tu as trouvé ton bonheur.

Quant à moi, je reste sur ma position: C'est un non-sens ;)