Bonjour à tous,
La question a déjà été posée mais je n'ai pas trouvé la solution à mon problème.
Je possède un TCD ("TCD") dans une feuille ("Data Suivi Lignes 2015 par mois").
Sur une autre feuille ("Dashboard"), je souhaite que lorsque je renseigne une cellule ("TextBox"), la valeur soit celle appliquée au filtre de mon TCD.
Le champ à filtrer est "Esc".
J'ai tenté d'adapter ce code trouvé par ailleurs, sans succès:
J'ai: "code erreur d’exécution 438: Propriété ou méthode non gérée par cet objet"
-----------------------------------------------------------------------------------
Public Sub FilterPivotTable()
Sheets("Data Suivi Lignes 2015 par mois").Activate
With ActiveSheet
.PivotTables("TCD").PivotFields("esc").ClearAllFilters
.PivotTables("TCD").PivotFields("esc").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Worksheets("Dashboard").TextBox.Value
End With
End Sub
-----------------------------------------------------------------------------------
Merci d'avance pour votre aide!
La question a déjà été posée mais je n'ai pas trouvé la solution à mon problème.
Je possède un TCD ("TCD") dans une feuille ("Data Suivi Lignes 2015 par mois").
Sur une autre feuille ("Dashboard"), je souhaite que lorsque je renseigne une cellule ("TextBox"), la valeur soit celle appliquée au filtre de mon TCD.
Le champ à filtrer est "Esc".
J'ai tenté d'adapter ce code trouvé par ailleurs, sans succès:
J'ai: "code erreur d’exécution 438: Propriété ou méthode non gérée par cet objet"
-----------------------------------------------------------------------------------
Public Sub FilterPivotTable()
Sheets("Data Suivi Lignes 2015 par mois").Activate
With ActiveSheet
.PivotTables("TCD").PivotFields("esc").ClearAllFilters
.PivotTables("TCD").PivotFields("esc").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Worksheets("Dashboard").TextBox.Value
End With
End Sub
-----------------------------------------------------------------------------------
Merci d'avance pour votre aide!
Pièces jointes
Dernière modification par un modérateur: