Discussion :

[Franc]

Bonsoir, j'ai le code suivant créé avec l'enregistreur de macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Range("B7").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    Range("B22").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
    ActiveWindow.SmallScroll Down:=18
    Range("B38").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    ActiveWindow.SmallScroll Down:=15
    Range("B55").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
    ActiveWindow.SmallScroll Down:=21

J'ai des dizaines de TCD et graphiques répartis sur plusieurs sheets. J'aimerais donc créer une boucle qui parcourt tous ces objets et les rafraîchisse mais c'est hors de mes modestes compétences en la matière, qq'un peut m'aider ?

[Invité]

Bonjour,

Essayez :

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 MettreAJourTousLesTcd()
 
Dim Sh As Worksheet
Dim I As Long
 
    For Each Sh In Sheets
        If Sh.PivotTables.Count > 0 Then
           For I = 1 To Sh.PivotTables.Count
               Sh.PivotTables(I).PivotCache.Refresh
           Next I
        End If
    Next Sh
 
End Sub

[Franc]

Super! Ce petit bout de code fait parfaitement le job et remplace avantageusement des dizaines voire des centaines de lignes de code de l'enregistreur de macro. Merci.