Discussion :

[Currahee]

Bonjour,

CONTEXTE DU PB :

Pour une de mes applis, je trace par macro un graphique barres.
J'ai une unique série de données, et je change la couleur de chaque point de la série en fonction de la réalisation d'une condition ou non associée au point.

PROBLEME :

Dès que je change la couleur du premier point, l'élément de légende du graphe associé à ma série change et est remplacé par les abcisses de tous les points de ma série .

Soit pourquoi pas..., mais moi je veux une chaine de texte bien précise comme élément de légende associée à ma série. Après avoir changé les couleurs de mes barres, j'essaye de reforcer le nom de la série, mais ça re ne change pas la légende

Précision: si j'enlève la partie changement de couleurs, soit la boucle correspondante dans le bout de code ci-dessous, ma légende est bien celle que je lui signifie par monChart.SeriesCollection(num_serie).Name = ...

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
23
24
' Series du graphe
    For num_serie = 1 To nbHistos
        With monChart.SeriesCollection(num_serie)
            ' Donnees sources
            .XValues = f_tableau.Range(f_tableau.Cells(ligne_deb + 1, 2), f_tableau.Cells(ligne_deb + 1, col_fin))
            .Values = f_tableau.Range(f_tableau.Cells(ligne_deb + 1 + num_serie, 2), f_tableau.Cells(ligne_deb + 1 + num_serie, col_fin))
        End With
monChart.SeriesCollection(num_serie).Name = f_tableau.Cells(ligne_deb + 1 + num_serie, 1)
 
        l_c_Indi_Colo = 2
        For l_num_doc = 1 To col_fin - 1
            If f_tableau.Cells(ligne_deb + num_serie + 1, l_c_Indi_Colo) < 0 Then
                monChart.SeriesCollection(num_serie).Points(l_num_doc).Interior.ColorIndex = couleurs(num_serie, 1)
            ElseIf f_tableau.Cells(ligne_deb + num_serie + 1, l_c_Indi_Colo) < 4 Then
                monChart.SeriesCollection(num_serie).Points(l_num_doc).Interior.ColorIndex = couleurs(num_serie, 2)
            Else
                monChart.SeriesCollection(num_serie).Points(l_num_doc).Interior.ColorIndex = couleurs(num_serie, 3)
            End If
            l_c_Indi_Colo = l_c_Indi_Colo + 1
        Next
 
        monChart.SeriesCollection(num_serie).Name = f_tableau.Cells(ligne_deb + 1 + num_serie, 1)
 
    Next

Quelqu'un pourrait il m'orienter sur la bonne voie ???

Merci d'avance,

[LeForestier]

Bonjour,

Pour une de mes applis, je trace par macro un graphique barres.
J'ai une unique série de données, et je change la couleur de chaque point de la série en fonction de la réalisation d'une condition ou non associée au point.

Bonjour,
tu dit que tu n'a qu'une seule série et ....
tu modifie le N° de ta série
With monChart.SeriesCollection(num_serie)
Il n'y a qu'une SeriesCollection > SeriesCollection(1)
A+

[Currahee]

Bonjour,
tu dit que tu n'a qu'une seule série et ....
tu modifie le N° de ta série
With monChart.SeriesCollection(num_serie)
Il n'y a qu'une SeriesCollection > SeriesCollection(1)
A+

Merci de t'interesser à mon problème.

J'ai effectivement une seule série à traiter, mais comme tu peux le remarquer, tout est paramétré dans mon le bout de code que je donne, bout de code qui gère en particulier le cas de plusieurs séries. Quand je dis une série, c'est que le paramère nbHistos = 1 dans l'exemple qui m'interesse.


J'ai par contre hier trouvé une solution peu élégante au problème... Avec plusieurs séries justement, et sans changer mon code, l'élément de légende associé à la série reste son nom même si je change les couleurs des barres correspondantes à ma série une à une.

Pourquoi ça marche quand il y a plusieurs séries et non une seule ??? Je suis toujours preneur d'un avis éclairé, et d'une solution élégante pour gérer le cas d'une seule série...

Dans mon cas particulier, j'ai rajouté une série "nulle" en barre cumulée sur mon graphique. Sur le graphique, elle n'apparait donc pas, il faut juste effacer l'élément de légende associé pour que visuellement, l'entourloupe soit totalement transparente... Mais berk que le code est pas beau...

[LeForestier]

Tu ne met nulle part Range(XX).Value
Essaye déjà de rajouter cela partout, il est possible que dans les boucles il y ai quelqu'interférence.
C'est difficile de tester car tes données sont dans une plage et un Tb couleur.
Et incidemment, ta dernière ligne est en double. (sans importance quand au fonctionnement)
Si ca marche pas, met les données en plus (fichier ou code)
A+

[Currahee]

Tu ne met nulle part Range(XX).Value
Essaye déjà de rajouter cela partout, il est possible que dans les boucles il y ai quelqu'interférence.
C'est difficile de tester car tes données sont dans une plage et un Tb couleur.
Et incidemment, ta dernière ligne est en double. (sans importance quand au fonctionnement)
Si ca marche pas, met les données en plus (fichier ou code)
A+

Merci pour tes suggestions

Je n'utilise jamais le .Value ... C'est sûrement pas bien, mais ça ne m'a encore jamais posé de problème et dans ce cas-çi non plus.

La ligne en double, c'est fait exprès pour essayer de reprendre la main sur le légendage auto effectué par Excel, sans succès.

Je n'ai pas trouvé de solution plus propre que celle que je propose dans mon post précédent avec l'ajout d'une série virtuelle, mais vu qu'elle marche à merveille, et que ça n'alourdit pas le code excessivement (3 lignes rajoutées tout au plus), je considère que mon problème est résolé, à la Mac Gyver certes, mais il est résolu...

NB : je ne peux pas donner plus de code, et de toute façon cela ne servirait pas à grand chose, c'est bien la partie de code que j'ai donné qu'il faut améliorer.