XL 2016 Modification de couleur graphique histogramme en fonction des valeurs de l'étiquettes de données

[loiseau jonathan]

Bonjour,

je souhaiterais modifier les barres de mon histogramme en fonction de la valeur de l'étiquette de donnée.
par exemple si la valeur est inf à 69% alors rouge sinon vert.

j'ai réussi à trouver un code mais celui-ci change l'ensemble de mon graphique.

je souhaiterais éviter de recréer un tableau avec des formules et le faire par vba si cela est possible.

merci d'avance pour vos retours.

 

[sylvanu]

Bonjour,
Un exemple en PJ.
Par contre il faut appuyez sur le bouton pour distribuer les couleurs. Je ne l'ai pas fait en automatique.
Mais ça valide le principe avec cette petite macro:

Sub ColoreBarres()
Dim i As Integer
    Calculate
    ActiveSheet.ChartObjects(1).Activate
    For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
        If Cells(7 + i, 3) < 0.69 Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(255, 0, 0)
        Else
            ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(0, 255, 0)
        End If
    Next i
End Sub

 

[loiseau jonathan]

Bonjour,

Merci pour votre retour. je vais essayer d'adapter le code à mon fichier car dans mon cas le tableau ne ce trouve pas sur la même feuille.

 

[sylvanu]

Re,
Il suffit de changer le cells en sheets("toto").cells ... ça devrait le faire.

 

[loiseau jonathan]

ça à l'air de fonctionner!!!!
merci beaucoup.

bonne journée