Discussion :

[MahyST]

Bonjour,
Je cherche à faire un changer un filtre d'un tcd automatiquement en fonction d'une valeur qui se trouve sur une autre feuille.
La valeur Région se trouve dans ma feuille TDB;
dans ma feuille ou se trouve le TCD, il faut que le tcd reprenne la valeur de la feuille TDB pour mettre à jour le filtre Région de mon TCD

Le code que j'ai trouvé est celui ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub FilterPivotTable()
Sheets("TCD").Activate
 
With ActiveSheet
 
.PivotTables("PivotTable1").PivotFields("Région").ClearAllFilters
.PivotTables("PivotTable1").PivotFields("Région").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Worksheets("TDB").Test.Value
End With
 
End Sub

Mais ca bloque sur la partie PivotTables. Le message d'erreur : run time error 1004


Qui peux m'aider please

[mjpmjp]

bonjour,

... Value1:=Worksheets("TDB").Test.Value

la valeur de Value1 est correcte ?

@+JP

[riaolle]

Bonjour,
Qu'est-ce que Test ? Est-ce me nom d'une cellule ? Si c'est le cas, alors il faut écrire :

Code :

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

Worksheets("TDB").Range("Test").Value

[MahyST]

Oui merci j'ai corrigé mais le problème est que je reste bloqué avant même d'arriver à la dernière ligne.
Le message d'erreur s'affiche qu moment ou le TCD de ma feuille doit être activé.

Est ce qu'il faut nommer un TCD pour qu'il puisse l'identifier?

[MahyST]

J'ai essayé ce code également mais j'ai toujours le message d'erreur sur l'identification du TCD de ma feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
Dim i As Integer
 
Application.ScreenUpdating = False
For i = 1 To 3
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("REGION 04 2017"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("REGION 04 2017"). _
CurrentPage = IIf(Sheets("TDB").Range("B7").Value = "", "(All)", Sheets("TDB").Range("B7").Value)
Next
End Sub

J'ai un message d'erreur : Error - Unable to get the pivottables property of the worksheet class

[riaolle]

As-tu essayé d'obtenir le code avec l'enregistreur de macro, puis de l'adapter ?
Par ex. pour un filtre :

Code :

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

1
2
3
ActiveSheet.PivotTables("nom TCD").PivotFields("nom champ").PivotFilters.Add2 _
        Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("Dnom TCD"). _
        PivotFields("nom champ pour filtre"), Value1:=1