Discussion :

[QuestVba]

Bonjour, Forum,

Un petit retour parmi vous une petite question.

J'ai une base de données assez simple à laquelle sont liés des TCD qui génèrent des graphiques. Jusque là, c'est OK. Voilà ce que cela donne :


J'ai une petite macro qui me permet d'actualiser les données en fonction du mois ou du service sélectionné. Cette macro permet d'adapter l'ordonnées car des différences substantielles sont présentes ; on peut passer de 500 à 5000.


Mais comme mon nombre de mois augmente ... tous les mois (c'est pour ceux qui ne suivent pas), je me disais qu'il serait bien de créer une petite macro pour n'afficher que les 12 derniers mois. C'est plus beau et plus lisible et cela permet à l'utilisateur de quand même avoir accès aux autres données au cas où. Exemple :


J'ai placé cette macro dans une Private Sub Workbook_Open mais ce qui n'est pas cool, c'est que, comme la première macro est dans une Private Sub Worksheet_Change, il me fait un recalcul pour chaque mois du slicer qu'il désélectionne. Du coup, 1 minute pour ouvrir le fichier. C'est court 1 minute mais pour l'utilisateur qui attend, il croit qu'Excel a planté.

Donc, ma demande est de savoir si vous pensez à un moyen de contourner ce truc qui me fait perdre du temps. Si vous avez des questions, je suis là.

[anasecu]

Bonjour,

J'ai placé cette macro dans une Private Sub Workbook_Open mais ce qui n'est pas cool, c'est que, comme la première macro est dans une Private Sub Worksheet_Change, .

Si tu ne veux pas interférer avec Sub Worksheet_Change, il te suffit en début de Workbook_Open de mettre "Application.EnableEvents = False"
puis en fin le remettre "Application.EnableEvents = True".

à moins que je n'ai pas compris ton souci... ^-^

[Qwazerty]

Salut

Il faudrait peut-être essayer en bloquant les calculs, le temps de l’exécution de la macro de sélection des mois.

Un truc comme ça

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
 
Private Sub Workbook_Open()
Dim MemoCalculation As XlCalculation
 
'On mémorise le mode de calclul actuel
MemoCalculation = Application.Calculation
 
'On empêche les recalcul le temps de l'execution du code
Application.Calculation = xlCalculationManual
 
'Ici tu places ta macro qui selectionne les mois
'[...]
 
'On remet le mode de calcul comme il était
Application.Calculation = MemoCalculation
 
End Sub

J'espère avoir compris le besoin, je n'en suis pas sûr.

++
Qwaz

[QuestVba]

Malheureusement, j'ai bien pris le temps et rien n'y fait. Les deux solutions n'apportent pas d'amélioration.

[Qwazerty]

Salut

Hum, sans avoir ni le fichier entre les doigts, ni le code sous les yeux ça n'est pas facile de deviner...

Essaie de mettre des points d'arrêt sur les procédures, effectue l'action qui te parait trop lente et suis le parcours des appels de procédure, si ça se trouve, ton code appel une procédure en boucle sans que tu ne le vois à la lecture du code (un OnChange par exemple suite à la modification d'une cellule ou d'un composant si tu en utilises).

[Edit]
En relisant ton message, il faudrait voir ce qu'il est possible de faire à ce niveau du code

J'ai placé cette macro dans une Private Sub Workbook_Open mais ce qui n'est pas cool, c'est que, comme la première macro est dans une Private Sub Worksheet_Change, il me fait un recalcul pour chaque mois du slicer qu'il déselectionne.

Le mieux serait sans doute de placer une variable boolean (False à la création par défaut) dans le Sub Worksheet_Change, qui tant qu'elle est False empêche l'exécution du code et ne la passer à True qu'une fois les jeux de desélections terminés.
[/Edit]
++
Qwaz

[eriiic]

Bonjour,

si j'ai bien compris c'est la désactivation des slicers qui entraine un rafraichissement du TCD, ce que tu n'arrives pas à bloquer.
Une suggestion en attendant mieux : réduire la source data à 1 ligne, rétablir ensuite.
eric