Bonjour,
J'ai un petit souci avec mes TCD, j'aimerai appliquer un filtre sur un 1er TCD et faire en sorte qu'il ce répercute sur tout les autres.
J'ai commencer une macro :
Le souci c'est que je n'arrive pas à appliquer la variable au filtre.
Quelqu'un pourrai t'il m'aider ?
Je joint un fichier d'exemple avec la macro à "rectifier"
J'ai un petit souci avec mes TCD, j'aimerai appliquer un filtre sur un 1er TCD et faire en sorte qu'il ce répercute sur tout les autres.
J'ai commencer une macro :
Code:
Sub Filtre_TCD()
Dim OTP As String
OTP = Range("C4").Value
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH1").PivotFields("OTP Project").CurrentPage = _
"OTP"
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH2").PivotFields("OTP Project").CurrentPage = _
"OTP"
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").CurrentPage = _
"(blank)"
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").ClearAllFilters
ActiveSheet.PivotTables("BSBH3").PivotFields("OTP Project").CurrentPage = _
"OTP"
End Sub
Le souci c'est que je n'arrive pas à appliquer la variable au filtre.
Quelqu'un pourrai t'il m'aider ?
Je joint un fichier d'exemple avec la macro à "rectifier"