Discussion :

[yeahna]

Bonjour,

J'ai un code qui me permet de changer les filtres des Tableaux croisés dynamiques de toutes les pages dans un fichier.
Cependant, je voudrais pouvoir appliquer ce code pour une seule page dans un fichier de plusieurs pages.

Pouvez vous me dire comment changer le code svp?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$1" Then Exit Sub
    Dim Sh As Worksheet, Pt As PivotTable
    For Each Sh In Worksheets
        For Each Pt In Sh.PivotTables
            With Pt.PivotFields("New geo region")
                .ClearAllFilters
                .CurrentPage = Target.Value
            End With
        Next Pt
    Next Sh
End Sub

milles mercis de votre aide

Jenna

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pt As PivotTable
 
If Target.Address = "$D$1" Then
    For Each Pt In Worksheets("Feuil1").PivotTables 'Adapte le nom de la feuille
        With Pt.PivotFields("New geo region")
            .ClearAllFilters
            .CurrentPage = Target.Value
        End With
    Next Pt
End If
End Sub

[yeahna]

Merci beaucoup, j'en profites pour poser deux autres petites questions:

- comment faire pour changer les TCD dans plusieurs feuilles définies?

- dans une feuille j'ai 3 TCD: 2 avec le filtre "New geo region" et un sans le filtre "New geo region". Quand je tape une région pour changer les filtres, il y a un bug vu que le dernier TCD n'a pas le filtre qui est dans le code.
Comment solutionner cela?

Ca me facilite la vie, milles mercis!

[mercatog]

Code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet
Dim Pt As PivotTable
 
If Target.Address = "$D$1" Then
    For Each Sh In Worksheets
        If InStr("Feuil1|Feuil3|Feuil7", Sh.Name) > 0 Then    'Ici on applique le code seulement aux feuilles Feuil1, Feuil3 et Feuil7 (à adapter)
            For Each Pt In Sh.PivotTables
                If Existe(Pt, "New geo region") Then
                    With Pt.PivotFields("New geo region")
                        .ClearAllFilters
                        .CurrentPage = Target.Value
                    End With
                End If
            Next Pt
        End If
    Next Sh
End If
End Sub
 
 
Private Function Existe(ByVal Pv As PivotTable, ByVal Str As String)
Dim Pf As PivotField
 
For Each Pf In Pv.PivotFields
Debug.Print Pf.Name
    If Pf.Name = Str Then
        Existe = True
        Exit For
    End If
Next Pf
End Function

[yeahna]

Merci beaucoup!!