Discussion :

[liop49]

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 :

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

Il me met une erreur exécution 1004 : Impossible de lire la propriété PivotItems de la classe PivotField

Est ce que quelqu'un peut m'aider ?

Par avance merci

Nini

[liop49]

Bon, j'ai essayé d'avancer un peu mais il y a un truc que je ne comprends pas

Je me suis mis uniquement que la feuille où je souhaite obtenir le résultat de la macro sur la tableau croisé dynamique.
J'ai mis en C2 la valeur à filtrer dans le champs "Commande" du tableau croisé dynamique.

Lorsque je lance la macro, il ne se passe rien ???

voici le code:

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
Sub macro()
Dim N°_Commande As String
 
Sheets("TCD2").Select
N°_Commande = Range("C2").Value
 
 
 
     With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Commande")
        .PivotItems(N°_Commande).Visible = True
    End With
 
 
End Sub

Est ce que quelqu'un peut m'aider ?

Merci

Nini