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
 

Fichiers joints

loiseau jonathan

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas