Discussion :

[Azalee92]

Bonjour,

Je viens vous interroger sur un sujet qui a déjà été traité mais je ne suis pas parvenue à adapter les propositions de réponses faites. Et je tourne en rond depuis 3 jours déjà.

Je vous joins donc mon fichier, sur la même page il y a en colonne M le TCD dont j'ai besoin.
En fait j'ai 4 fichiers sources pour lequel je construit un TCD pour chaque afin d'alimenter un tableau synthétique sur l'évolution financière de l'entreprise. L'ensemble sera commandé par une macro.

Dans l'exemple joins le TCD prend en compte un des fichiers, il s'agit du total des règlements pointés par mois.
Mon fichier source évolue toute l'année et je ne parviens pas faire prendre en compte à chaque mise à jour, la dernière ligne renseignée pour alimenter le TCD ?

De la même manière quelle fonction faudrait-il faire pour que les données obtenues pour chaque mois aillent alimenter le tableau de synthèse sur l'encaissement sachant que les mois de 2016 n'existent pas encore ?

Merci de votre aide
Cdlt

[Stanler]

Bonjour,

Est ce que ça irait ?

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 Actualisation()
'Actualise TOUT le classeur (Même les graphiques)
With Application
    .ScreenUpdating = False
    .DisplayStatusBar = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
    ActiveWorkbook.RefreshAll
With Application
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayStatusBar = True
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

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 ActuAlternative()
'Actualise TOUS les tcd du classeur
With Application
    .ScreenUpdating = False
    .DisplayStatusBar = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
Dim TCD As PivotTable
    For i = 1 To Sheets.Count
        For Each TCD In Worksheets(i).PivotTables
            TCD.RefreshTable
        Next
    Next i
With Application
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayStatusBar = True
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

La première macro s'exécute plus rapidement