Bonjour,

Je souhaite faire plusieurs filtres sur un TCD en fonction de cellules présentes sur une autre feuille mais la macro ne fonctionne pas. Je suis débutante sur le language VBA.... merci pour votre aide.

ci dessous la macro utilisée:
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
33
34
35
36
37
38
39
40
41
42
43
44
Sub TESTMAJTCD()
'
' TESTMAJTCD Macro
'
 
Dim result As String
 
Sheets("RENTABILITE").Select
result = Sheets("RENTABILITE").Range("A2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("TYPE PRODUIT").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("TYPE PRODUIT").CurrentPage = result
 
Sheets("RENTABILITE").Select
result = Range("B2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("FORMAT").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("FORMAT").CurrentPage = result
 
Sheets("RENTABILITE").Select
result = Sheets("RENTABILITE").Range("C2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("TYPE CLIENT").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("TYPE CLIENT").CurrentPage = result
 
Sheets("RENTABILITE").Select
result = Sheets("RENTABILITE").Range("D2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CENTRALE").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CENTRALE").CurrentPage = result
 
Sheets("RENTABILITE").Select
result = Sheets("RENTABILITE").Range("E2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("ENSEIGNE").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("ENSEIGNE").CurrentPage = result
 
Sheets("RENTABILITE").Select
result = Sheets("RENTABILITE").Range("F2").Value
Sheets("TCD BASE").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Code Stat 3").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Code Stat 3").CurrentPage = result
 
End Sub