Synchronisation de plusieurs TCD

Version imprimable

30/12/2010, 08h07
Invité

Synchronisation de plusieurs TCD

Bonjour à tous,

J'ai cherché dans le forum mais sans trouver ce que je cherche ! !
Alors voici ma question : comment synchroniser par VBA un "Filtre du rapport" de plusieurs TCD cibles par rapport un TCD source qui possède le même "Filtre du rapport".
Jusqu'à présent, j'utilisais simplement la valeur de la cellule du TCD source, mais avec Excel 2007/2010 on à la possibilité de sélectionner plusieurs éléments dans le filtre, et là ça coince ! !
Peut-être peut-on lire et mettre à jour directement la valeur du PivotFields, mais je ne sais pas faire !
Merci de votre aide.

bonjour,

la syntaxe pour filtrer est la suivante:

Code:

1
2
3
4
5
6
7
8
9
 
    With ActiveSheet.PivotTables(LeNomdelaTablePivot).PivotFields(LeNomDuChampAFiltrer)
        .PivotItems("1").Visible = False
        .PivotItems("2").Visible = False
        .PivotItems("3").Visible = False
        .PivotItems("4").Visible = False
        .PivotItems("5").Visible = False
        ...
    End With

Bonjour Mayekeul et merci pour la réponse.

J'ai du mal néanmoins à l'appliquer à ma demande. Les "1" et "2" ...... doivent-ils être remplacés par les items réels (sinon j'ai un msg d'erreur)
Voilà la syntaxe que j'utilisais jusqu'à présent :
Code:

1 2 3 4 5 6 7 8 With F3 .PivotTables("Tableau croisé dynamique1").PivotFields("Période"). _ CurrentPage = F2.Range("B2").Value .PivotTables("Tableau croisé dynamique2").PivotFields("Période"). _ CurrentPage = F2.Range("B2").Value .PivotTables("Tableau croisé dynamique3").PivotFields("Période"). _ CurrentPage = F2.Range("B2").Value End With
Où F2.Range("B2").Value était la valeur de la cellule correspondant au filtre de page du TCD source (Excel 2003 par exemple).

Or dans 2007, le filtre peut cumuler plusieurs valeurs (Oprion : "Sélectionner plusieurs éléments"). Dans ce cas mon code ne fonctionne plus !

Alors j'ai essayé de remplacer : = F2.Range("B2").Value par : = F2.PivotTables("Tableau croisé dynamique1").PivotFields("Période").CurrentPage, mais sans succès !

oui les un et les deux, c'était juste pour l'exemple :)

pour la selection multiple :
Code:

1 2 3 4 5 6 7 ActiveSheet.PivotTables("PT1").PivotFields("PF1").CurrentPage = "(All)" With ActiveSheet.PivotTables("PT1").PivotFields("PF1") .PivotItems("1").Visible = False ... End With ActiveSheet.PivotTables("PT1").PivotFields("PF1").enableMultiplePageItems = True
sinon, un bon truc pour t'y retrouver est d'utiliser l'enregistreur de macro

30/12/2010, 12h06
Invité

OK,OK !

Si je comprends bien, le code que tu me proposes permet d'affecter le filtre sur les TCD "cibles".
Mais comment récupérer les éléments du filtre du TCD "source" pour ensuite les appliquer aux cibles ?

(J'ai bien sûr essayer l'enregisteur dont je suis un fidèle utilisateur qui me donne le même type de syntaxe que ce que tu me proposes).

Pour rappel : on affecte manuellement les filtres sur le TCD source et on souhaite les appliquer automatiquement aux TCD cibles !
30/12/2010, 13h13
mayekeul

petite question

que représente

Code:

F2.Range("B2").Value
30/12/2010, 16h16
Invité

1 pièce(s) jointe(s)

Celà représente la cellule B2 qui correspond au champ de page du TCD source (où l'on applique le filtre).

Bonjour mayekeul

Je joint un fichier pour éclairer ma demande !

Merci de ton aide

bonjour,

et bonne année :)

tu pourrais imaginer de faire quelque chose dans ce genre là par exemple

Code:

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
 
Sub OneForAll()
Dim PT_MAIN As PivotTable
Dim PT As PivotTable
Dim PFN(), PF As Integer, P, I
 
'table de référence
Set PT_MAIN = ActiveSheet.PivotTables("Tableau croisé dynamique1")
I = 1
 
'recuperer les noms de filtres inactifs
For PF = 1 To PT_MAIN.PivotFields("AA").PivotItems.Count
    If Not PT_MAIN.PivotFields("AA").PivotItems(PF).Visible Then
        ReDim Preserve PFN(1 To I)
        PFN(I) = PT_MAIN.PivotFields("AA").PivotItems(PF).Name
        I = I + 1
    End If
Next PF
 
'les appliquer sur les autres tables pivot
For Each PT In ActiveSheet.PivotTables
    'sauf si c'est la table pivot de référence
    If Not PT.Name = PT_MAIN.Name Then
        With PT
            PT.PivotFields("AA").CurrentPage = "(All)"
            PT.PivotFields("AA").EnableMultiplePageItems = True
            For PF = 1 To UBound(PFN)
                PT.PivotFields("AA").PivotItems(PFN(PF)).Visible = False
            Next PF
        End With
    End If
Next PT
 
End Sub

Bonjour Mayekeul et tous mes voeux pour cette nouvelle année !

Merci à toi mais je suis malheureusement incapable d'imaginer ce que tu a écrit ! !

Ceci dit, est-ce le fait d'avoir passé le fichier au format 2007 que j'ai l'erreur "erreur d'execution 1004 : impossible de définir la propriété Visible de la classe PivotItem" (ligne en commentaire ci-dessous) ?

'les appliquer sur les autres tables pivot
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 For Each PT In ActiveSheet.PivotTables 'sauf si c'est la table pivot de référence If Not PT.Name = PT_MAIN.Name Then With PT PT.PivotFields("AA").CurrentPage = "(All)" PT.PivotFields("AA").EnableMultiplePageItems = True For PF = 1 To UBound(PFN) 'PT.PivotFields("AA").PivotItems(PFN(PF)).Visible = False Next PF End With End If Next PT End Sub

re :)

Au temps pour moi.

j'ai omis une chose dans le code

voici le corrigé avec annotations :)

Code:

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
45
46
47
48
49
50
51
52
53
54
 
Sub OneForAll()
Dim PT_MAIN As PivotTable
Dim PT As PivotTable
Dim PFN(), PF As Integer, P, I
 
'table de référence
Set PT_MAIN = ActiveSheet.PivotTables("Tableau croisé dynamique1")
I = 1
 
'recuperer les noms de filtres inactifs
For PF = 1 To PT_MAIN.PivotFields("AA").PivotItems.Count
    If Not PT_MAIN.PivotFields("AA").PivotItems(PF).Visible Then
        'redimensionner pfn en fonction du nombre de filtres inactif sur le champ AA
        ReDim Preserve PFN(1 To I)  'preserve pour ne pas perdre les données précédemment inscrites
        'l'ajouter
        PFN(I) = PT_MAIN.PivotFields("AA").PivotItems(PF).Name
        I = I + 1   'on incrémente en prévision du prochain filtres inactif à ajouter
    End If
Next PF
 
'nb de filtre inactifs
On Error GoTo ShowAll
I = UBound(PFN)
On Error GoTo 0
 
'les appliquer sur les autres tables pivot
For Each PT In ActiveSheet.PivotTables
    'sauf si c'est la table pivot de référence
    If Not PT.Name = PT_MAIN.Name Then
        With PT
            'activation de la selection multiple
            PT.PivotFields("AA").EnableMultiplePageItems = True
            'on affiche tout les filtres disponibles
            For Each P In PT.PivotFields("AA").PivotItems
                P.Visible = True
            Next P
            'on désactive les filtres devant etre inactif
            If Not I = 0 Then
                For PF = 1 To I
                    PT.PivotFields("AA").PivotItems(PFN(PF)).Visible = False
                Next PF
            End If
        End With
    End If
Next PT
 
Exit Sub
 
ShowAll:
I = 0
Resume Next
 
End Sub

03/01/2011, 10h31
Invité

même message d'erreur, cette fois sur la ligne : P.Visible = True
03/01/2011, 10h38
mayekeul

ah?

en faisant quelle opérations?????

sur le m^me fichier????

En recopiant ton nouveau code en remplacement de l'ancien, sur le même fichier et en ajoutant une ligne pour rafraichir les tables (en début de code) :

Code:

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
45
46
47
48
49
50
51
52
53
54
55
Sub OneForAll()
Dim PT_MAIN As PivotTable
Dim PT As PivotTable
Dim PFN(), PF As Integer, P, I
 
ActiveWorkbook.RefreshAll
 
'table de référence
Set PT_MAIN = ActiveSheet.PivotTables("Tableau croisé dynamique1")
I = 1
 
'recuperer les noms de filtres inactifs
For PF = 1 To PT_MAIN.PivotFields("AA").PivotItems.Count
    If Not PT_MAIN.PivotFields("AA").PivotItems(PF).Visible Then
        'redimensionner pfn en fonction du nombre de filtres inactif sur le champ AA
        ReDim Preserve PFN(1 To I)  'preserve pour ne pas perdre les données précédemment inscrites
        'l'ajouter
        PFN(I) = PT_MAIN.PivotFields("AA").PivotItems(PF).Name
        I = I + 1   'on incrémente en prévision du prochain filtres inactif à ajouter
    End If
Next PF
 
'nb de filtre inactifs
On Error GoTo ShowAll
I = UBound(PFN)
On Error GoTo 0
 
'les appliquer sur les autres tables pivot
For Each PT In ActiveSheet.PivotTables
    'sauf si c'est la table pivot de référence
    If Not PT.Name = PT_MAIN.Name Then
        With PT
            'activation de la selection multiple
            PT.PivotFields("AA").EnableMultiplePageItems = True
            'on affiche tout les filtres disponibles
            For Each P In PT.PivotFields("AA").PivotItems
                P.Visible = True
            Next P
            'on désactive les filtres devant etre inactif
            If Not I = 0 Then
                For PF = 1 To I
                    PT.PivotFields("AA").PivotItems(PFN(PF)).Visible = False
                Next PF
            End If
        End With
    End If
Next PT
 
Exit Sub
 
ShowAll:
I = 0
Resume Next
 
End Sub

03/01/2011, 10h58
mayekeul

et cela est censé appliquer quel filtre exactement?

car ici je n'ai absolument aucun soucis
03/01/2011, 11h27
Invité

je ne suis pas sûr de comprendre ta question

Si celà concerne la ligne de code que j'ai ajouté, elle me permet de mettre à jour les TCD avant de lancer la synchro.

Bonjour Mayekeul

Je ne parviens pas à trouver où ça coince.
Peut-être pourrait-tu m'envoyer une copie de ta version de test qui fonctionne.
Merci de ton aide.
04/01/2011, 07h44
mayekeul

1 pièce(s) jointe(s)

bonjour,

voili voila
8-)
05/01/2011, 06h17
Invité

Bonjour Mayekeul

Effectivement, celà fonctionne sans problème sur ton fichier. Je vais essayer de l'adapter à mon besoin.

Merci encore de ton aide.