Ajout de Code Article selon une liste dans un TCD

**jmarkelion** · 12/10/2015, 08h31

Bonjour,

Je souhaite automatiser l'ajout (filtre) de code article selon une liste de code à ma disposition.
Nom : TCD.png
Affichages : 185
Taille : 6,0 Ko

J'ai essayé pas mal de code différent mais aucun ne semble marché.

Ex avec celui là (qui est un de mes derniers essais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sheets("Client").Select
 
For i = 3 To 267
  client = Sheets(3).Range("A" & i).Value
 For Each pt In ActiveSheet.PivotTables("Client").PivotFields("[Stat Facture All].[Code Article].[Code Article]").PivotItems
   pt(client).Visible = True
 Next
Next

L'idée est de parcourir mes 300 codes environs et de les afficher dans mon TCD automatiquement.

Merci,

**Daniel.C** · 12/10/2015, 10h42

Bonjour,

Vérifie la syntaxe :
[Stat Facture All].[Code Article].[Code Article]
Le "code article" en double me semble bizarre ?

**jmarkelion** · 12/10/2015, 10h45

C'est comme ça qu'il me le sortait quand j'essayais de faire ça avec un enregistrement de macro.

Le truc, c'est qu'il situe bien le PivotFields mais pas PivotItems qu'il ne trouve pas.

**Daniel.C** · 12/10/2015, 11h10

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each pt In ActiveSheet.PivotTables("Client").PivotFields("Code Article").PivotItems
   pt(client).Visible = True

**antonysansh** · 12/10/2015, 11h36

Bonjour,

Quand tu mets pt(client).Visible = True, les autres PivotItem ne passes pas à False.
C'est peut être ça le problème.

Voilà comment je procède dans des cas similaires :
Une fonction qui test la présence dans ma liste (la liste est un range dans le classeur dans ce cas) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function Est_present(rg As Range, v As String) As Boolean
    Dim n&
    n = Application.WorksheetFunction.CountIf(rg, v)
    Est_present = n > 0
End Function

Ensuite je parcours tous les PivotItem et met leurs propriété .Visible à Est_present(liste,valeur) :

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 Filtrer()
    Application.ScreenUpdating = False
        Dim PvT As PivotTable, PvF As PivotField, PvI As PivotItem, liste_filter As Range
            Set PvT = ActiveSheet.PivotTables("Tableau croisé dynamique1") '<- a adapter
            Set PvF = PvT.PivotFields("code") '<- a adapter
            Set liste_filter = ActiveSheet.[I2:I4] '<- a adapter
        With PvT
            For Each PvI In PvF.PivotItems
                PvI.Visible = Est_present(liste_filter, PvI.Value)
            Next
        End With
fin:
    Set PvT = Nothing
    Set PvF = Nothing
    Set liste_filter = Nothing
    Application.ScreenUpdating = True
End Sub

Il te reste à adapter à ton cas.

EDIT :
Mal lu première fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each pt In [..........].PivotItems

pt est un PivotItem avec des propriétés comme .Value, .Visible, ...
(Un objet et non une collection d'objets)
Donc pt(client) n'a pas de sens en VB.
Par contre pt.Vsible = (pt.Value = client) oui.

Mais le problème des Visible True qui ne passent pas à False persiste.
j'espère être clair.

**78chris** · 12/10/2015, 19h31

Bonjour

Envoyé par Daniel.C

Bonjour,

Vérifie la syntaxe :
[Stat Facture All].[Code Article].[Code Article]
Le "code article" en double me semble bizarre ?

La source est sans doute un cube de données. La syntaxe est différente.

Je vais rechercher mais il y a un fil où j'ai traité, il me semble, un cas similaire.

Edit : http://www.developpez.net/forums/d14...bleau-valeurs/ à partir du #12

**jmarkelion** · 13/10/2015, 09h30

@antonysansh : j'ai testé ta solution en adaptant. Il plante au niveau de cette ligne : "PvI.Visible = Est_present(liste_filter, PvI.Value)"
En me disant : "Impossible de définir la propriété Visible de la classe PivotItem.

@78chris : j'ai aussi essayé ta solution mais là, c'est cette ligne qui coince : "With ThisWorkbook.SlicerCaches("Segment_Article")"

**antonysansh** · 13/10/2015, 09h43

Peux tu poster ton code inspiré de ma proposition ?

**jmarkelion** · 13/10/2015, 10h05

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Application.ScreenUpdating = False
        Dim PvT As PivotTable, PvF As PivotField, PvI As PivotItem, liste_filter As Range
            Set PvT = ActiveSheet.PivotTables("Client") '<- a adapter
            Set PvF = PvT.PivotFields("[Stat Facture All].[Code Article].[Code Article]") '<- a adapter
            Set liste_filter = Sheets(3).[A4:A14] '<- a adapter
        With PvT
            For Each PvI In PvF.PivotItems
                PvI.Visible = Est_present(liste_filter, PvI.Value)
            Next
        End With

La liste est une liste réduite pour tester.