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

loiseau jonathan

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

XLDnaute Barbatruc
Supporter XLD
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:
VB:
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
 

Pièces jointes

  • ColoreBarre.xlsm
    23.2 KB · Affichages: 18

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll