Discussion :

[November-Oscar]

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 :

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
 
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

[Invité]

Code :

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

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

[November-Oscar]

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.

[November-Oscar]

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