Discussion :

[Jennn]

Bonjour,

Alors voila, tout d'abord je voulais préciser que je débute avec VBA et j'apprends grace aux posts du forum..

J'ai un fichier Excel avec plusieurs feuilles contenant des tableaux croisés dynamiques (plusieurs par feuilles) similaires mais sur des populations différentes.

Pour chacune de ces feuilles j'ai réussi à créer un filtre mettant à jour les tableaux croisés dynamiques (de cette feuille), mais je voudrais que ce filtre mette à jour l'ensemble du fichier Excel.

J'espère être claire et que ce soit possible,
Si vous avez une idée.. Je suis preneuse!

Cordialement

[Invité]

Bonjour,

Essayez ce 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
18
19
20
21
22
Sub MettreAJourTousLesTcd()
 
    Dim Pvt As PivotTable
    Dim Sh As Worksheet
    Dim I As Long
 
    For Each Sh In Sheets
 
        Sh.Activate
        If Sh.PivotTables.Count > 0 Then
            For I = 1 To ActiveSheet.PivotTables.Count
 
               Set Pvt = ActiveSheet.PivotTables(I)
               Pvt.PivotCache.Refresh
               MsgBox (Sh.Name & Chr(10) & ActiveSheet.PivotTables.Count & Chr(10) & Pvt.Name & " numéro : " & I) '(Pour vérifier)
 
               Set Pvt = Nothing
            Next I
        End If
    Next Sh
 
End Sub

Cordialement.

[Jennn]

Serait-il possible de m'expliquer les actions de ce code?

[Invité]

Le programme balaye toutes les feuilles (Sheets.count). Une fois positionné sur une feuille, on compte le nombre de TCD associé à la feuille (ActiveSheet.Pivottables.count).

Pour chaque TCD trouvé, on le rafraîchit. Pour cela on est obligé de créer une variable de type Pivottable (Pvt) qui pourra lire dans la collection Pivottables de la feuille. On supprime la variable au fur et à mesure pour ne pas saturer la mémoire.

Question : Avez-vous testé ?

Cordialement.

[Jennn]

désolée du retard...

Je m'y remet.
Merci pour cette explication cela me permet de mieux comprendre ce langage totalement inconnu encore.

J'ai testé mais j'ai créé un filtre avec une liste déroulante et je voulais que les tcd se mettent à jour en fonction de la modalité choisie. Or là je ne vois pas trop comment modifier votre code.

Merci de votre aide,