VBA implementation filtre general
Bonjour à tous,
Nouveau parmi vous, j'etais jusqu'a aujourd'hui un simple anonyme qui suit les formations et autres QT sur le forum mais aujourd'hui je me retrouve dans une impasse . ( bonne raison de s'inscrire non ?
En effet, pour mon taff je dois creer une macro qui automatise le filtre sur une 10ene de TCD sans avoir a ce que je les filtre 1 par 1 .
voici la macro que j'ai crée en essayant d'etre le plus rigoureux possible mais ça m'annonce une errOr 438
'verif
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
' Variables to be used
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
'Data
Set pt = Worksheets("TCD_Server HC").PivotTables("TCD5")
Set Field = pt.PivotField("TITRE")
NewCat = Worksheets("TCD_Server HC").Range("H6").Value
' updates and refreshes the table
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
End Sub
Je ne sais pas si je me suis fait comprendre mais n'hesitez pas a me poser des questions. Je peux mettre en ligne le fichier excel en question a votre demande
Merci d'avance pour votre aide qui me sera très utile pour le travail ( mon boss compte sur moi ) alors que moi je compte sur vous ^^
cordialement,
Noa
Bonjour,
Je peux mettre en ligne le fichier excel en question a votre demande
Excellente idée...
A te relire (avec un fichier sans données confidentielles, mais respectant la structure de ton fichier réel)
Up
Toujours bloqué ...
Bonjour,
Ton fichier ne sert à rien.
De plus 1,9Mo pour 30 lignes
Es-tu certain d'avoir un champ "Scenario"?
Envoie un fichier représentatif
Cdlt.