[XL-2003] Problème chart calculate

Problème chart calculate

Bonjour
J'ai un problème sur un chart calculate. Ce problème est logique et je le comprends. Maintenant que j'ai dit ça, je n'arrive pas à le contourner.

Le problème :
Le chart calculate se fait dès qu'il y a modification du graphe. ça marche bien au premier calcul. Par contre au second calcul, comme précédemment, certaines données ont été masquées, il s'agit en début de faire un reset en début afin de redemander l'affichage de tout. Par contre ce reset est considéré comme une modification et donc le programme boucle sur lui-même.

Question: comment annihiler cette action de reset nécessaire lors du calcul ? ==> qu'elle ne soit pas considéré comme un calculate !

Merci de votre aide
Cdlt
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Chart_Calculate() Dim I As Integer With ActiveChart.PivotLayout.PivotTable For I = 1 To .PivotFields("Année").PivotItems.Count .PivotFields("Année").PivotItems(I).Visible = True Next End With With ActiveChart.PivotLayout.PivotTable If .PivotFields("Type1").CurrentPage <> "(All)" Or .PivotFields("Niveau3").CurrentPage <> "(All)" Then For I = 1 To .PivotFields("Année").PivotItems.Count If Left(.PivotFields("Année").PivotItems(I), 1) = 2 And Len(.PivotFields("Année").PivotItems(I)) <> 4 Then .PivotFields("Année").PivotItems(I).Visible = False End If Next End If End With End Sub

Bonjour,

Code:

1
2
3
4
 Application.Calculation = xlManual
    'Ton code
    Application.Calculation = xlAutomatic
    ActiveWorkbook.RefreshAll

Merci de ta réponse. J'avais déjà testé les lignes 1 et 3 en début et en fin de code sans la ligne 4.
ça ne marche pas mieux avec la ligne 4.
J'ai ajouté un mouchard dans le code ==> uin simple Msgbox "X" au début...
Bref, ça boucle dès que le visible change d'état.

Personne n'a d'idée pour me ré-orienter ?
Merci
CH