Manipulation de données de graphique en VBA

Version imprimable

Bonjour à tous,

Si des experts passent par là, j'ai une question à propos d'un comportement étrange d'Excel (je suppose, à moins que ça ne vienne de mois :aie:)

Pour faire simple, j'ai beaucoup de graphs sur une feuille (genre une cinquantaine).
Je boucle sur chaque graph, puis sur chaque point d'une série pour récupérer la valeur minimum de la série.
L'objectif étant de mettre à jour la valeur minimum de l'échelle du graph en fonction de cette valeur minimum pour rendre le graph plus lisible (via la propriété : ActiveChart.Axes(xlValue).MinimumScale)

Ce que je trouve étonnant, c'est que le code fonctionne parfaitement en mode pas à pas mais quand je l’exécute "normalement", cela ne fait rien.
Comment est-ce possible ? :weird:

Edit : Je vous mets le code que j'ai fait si ça peut aider à percer le mystère
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub MajEchelleGraphs() Dim Feuille As Worksheet Dim Graphique As ChartObject Dim PointGraph As Point Dim TextePoint As String Dim ValeurPoint As Integer Dim ValeurMin As Integer Set Feuille = Sheets("Feuil1") For Each Graphique In Feuille.ChartObjects Graphique.Activate ValeurMin = 60 ActiveChart.FullSeriesCollection(1).ApplyDataLabels For Each PointGraph In Feuille.ChartObjects(Graphique.Name).Chart.SeriesCollection(1).Points TextePoint = PointGraph.DataLabel.Characters.Text ValeurPoint = CInt(Left(TextePoint, Len(TextePoint) - 1)) If ValeurPoint < ValeurMin Then ValeurMin = ValeurPoint Next PointGraph ActiveChart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.MRound(ValeurMin - 5, 10) / 100 ActiveChart.FullSeriesCollection(1).DataLabels.Delete Next Graphique End Sub
Merci d'avance !

PS : Si vous avez une meilleure façon de modifier l'échelle, je suis preneur. Mais je précise que je suis passer par cette façon car je ne peux pas utiliser les données.

Bonjour,

Citation:

Ce que je trouve étonnant, c'est que le code fonctionne parfaitement en mode pas à pas mais quand je l’exécute "normalement", cela ne fait rien.

J'ai ajouté des debug.print à ton code, peux-tu me dire ce que tu obtient dans la fenêtre d'exécution quand tu lances le code "normalement"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MajEchelleGraphs()
 
Dim Feuille As Worksheet
Dim Graphique As ChartObject
Dim PointGraph As Point
Dim TextePoint As String
Dim ValeurPoint As Integer
Dim ValeurMin As Integer
 
    Set Feuille = Sheets("Feuil1")
 
    For Each Graphique In Feuille.ChartObjects
        debug.print graphique.name
        Graphique.Activate
        ValeurMin = 60
        ActiveChart.FullSeriesCollection(1).ApplyDataLabels
        For Each PointGraph In Feuille.ChartObjects(Graphique.Name).Chart.SeriesCollection(1).Points
            TextePoint = PointGraph.DataLabel.Characters.Text
            ValeurPoint = CInt(Left(TextePoint, Len(TextePoint) - 1))
            If ValeurPoint < ValeurMin Then ValeurMin = ValeurPoint
        Next PointGraph
        debug.print valeurmin
        ActiveChart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.MRound(ValeurMin - 5, 10) / 100
        ActiveChart.FullSeriesCollection(1).DataLabels.Delete
    Next Graphique
 
End Sub

31/05/2019, 15h57
mat955

Bonjour halaster08,

Bien vu le coup des debug.print, je n'y pense pas assez pour faire des vérifs.
Alors j'ai fait trois tests :

1/ Lancement de la macro en mode normal (comme si je cliquais sur un bouton) et là j'obtiens que des 60 (cf ci-dessous)

2/ Lancement en mode pas à pas mais en restant appuyer sur F8 => Même résultat

3/ Lancement en mode pas à pas mais en appuyant successivement sur F8 jusqu'à la fin de la macro (j'ai mal au doigt) => Là seulement j'obtiens bien les bonnes valeurs !

Je n'y comprends rien, comme si Excel ne traitait pas certaines instructions quand les macros tournent rapidement. :weird:

Résultat test 1 et 2 :

Citation:

Chart 1
60
Chart 2
60
Chart 3
60
Chart 4
60
Chart 5
60
Chart 6
60
Chart 7
60
Chart 8
60
Chart 9
60
Chart 10
60
Chart 11
60
Chart 12
60
Chart 13
60
Chart 14
60
Chart 15
60
Chart 16
60
Chart 17
60
Chart 18
60
Chart 19
60
Chart 20
60
Chart 21
60
Chart 22
60
Chart 23
60
Chart 24
60
Chart 25
60
Chart 27
60
Chart 29
60
Chart 30
60
Chart 31
60
Chart 32
60
Chart 33
60
Chart 35
60
Chart 36
60
Chart 37
60
Chart 38
60
Chart 39
60
Chart 40
60
Chart 41
60

Résultat test 3 (seulement jusqu'au graph 4)

Citation:

Chart 1
60
Chart 2
60
Chart 3
38
Chart 4
60
...

J'ai viré les activations de graphique de ton code, activer c'est très souvent inutile et parfois source d'erreur
Par contre moi j'ai un problème au niveau de textepoints qui est toujours vide chez moi (même avec ton code)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MajEchelleGraphs()
 
Dim Feuille As Worksheet
Dim Graphique As ChartObject
Dim PointGraph As Point
Dim TextePoint As String
Dim ValeurPoint As Integer
Dim ValeurMin As Integer
 
    Set Feuille = Sheets("Feuil1")
 
    For Each Graphique In Feuille.ChartObjects
        Debug.Print Graphique.Name
        'Graphique.Activate
        ValeurMin = 60
        Graphique.Chart.FullSeriesCollection(1).ApplyDataLabels
        For Each PointGraph In Feuille.ChartObjects(Graphique.Name).Chart.SeriesCollection(1).Points
            TextePoint = PointGraph.DataLabel.Characters.Text 'est vide chez moi
            ValeurPoint = CInt(Left(TextePoint, Len(TextePoint) - 1)) 'du coup génère une erreur ici
            If ValeurPoint < ValeurMin Then ValeurMin = ValeurPoint
        Next PointGraph
        Debug.Print ValeurMin
        Graphique.Chart.Axes(xlValue).MinimumScale = ValeurMin 'Application.WorksheetFunction.MRound(ValeurMin - 5, 10) / 100 'et ici quand valeurmin=0
        Graphique.Chart.FullSeriesCollection(1).DataLabels.Delete
    Next Graphique
 
End Sub

As-tu essayer ton code sur un autre classeur ?

Sinon ton code avec un autre debug.print au niveau de textepoint et valeurpoint, pour vérifier si il trouve bien une valeur <60

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub MajEchelleGraphs()
 
Dim Feuille As Worksheet
Dim Graphique As ChartObject
Dim PointGraph As Point
Dim TextePoint As String
Dim ValeurPoint As Integer
Dim ValeurMin As Integer
 
    Set Feuille = Sheets("Feuil1")
 
    For Each Graphique In Feuille.ChartObjects
        debug.print graphique.name
        Graphique.Activate
        ValeurMin = 60
        ActiveChart.FullSeriesCollection(1).ApplyDataLabels
        For Each PointGraph In Feuille.ChartObjects(Graphique.Name).Chart.SeriesCollection(1).Points
            TextePoint = PointGraph.DataLabel.Characters.Text
            ValeurPoint = CInt(Left(TextePoint, Len(TextePoint) - 1))
            debug.print TextePoint & "   " & ValeurPoint 
            If ValeurPoint < ValeurMin Then ValeurMin = ValeurPoint
        Next PointGraph
        debug.print valeurmin
        ActiveChart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.MRound(ValeurMin - 5, 10) / 100
        ActiveChart.FullSeriesCollection(1).DataLabels.Delete
    Next Graphique
 
End Sub