Bonsoir,
J'ai un tableau croisé dynamique sur lequel je voudrais appliquer une macro qui permettrait de faire une sélection en automatique en fonction de la valeur d'une cellue.
Voici mon code :
Il me met une erreur exécution 1004 : Impossible de lire la propriété PivotItems de la classe PivotField
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 Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 21/11/2012 par Nicolas Baudry ' 'sur la feuille TCD 1 prendre la valeur de la cellule C2 N°_Commande = Range("C2").Value 'sélectionner la feuille TCD 2 où l'on souhaite modifier un des filtres du tableau croisé dynamique Sheets("TCD 2").Select With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Commande") .PivotItems(N°_Commande).Visible = True End With Range("A6").Select End Sub
Est ce que quelqu'un peut m'aider ?
Par avance merci
Nini
Partager