Graphique: variation de couleur en fonction d'un objectif

[vincent87]

Bonjour à tous,

Mon premier message

Alors comme l'intitulé n'est peut être pas très clair, je voudrai que les barres de mon graphique c-joint soient verte si supérieure ou égale à l'objectif et rouge si en dessous,

je sais qu'il y a la fonction "inversée si négative" avec laquelle on peut choisir 2 couleurs mais dans mon cas toutes les valeures sont positives.

Voilà, merci de votre aide

 

[phlaurent55]

Re : Graphique: variation de couleur en fonction d'un objectif

Bonjour Vincent, et bienvenue sur le forum

ton fichier en retour

à+
Philippe

 

[Guest]

Re : Graphique: variation de couleur en fonction d'un objectif

bonjour Vincent et bienvenue sur le forum,

Dans le classeur joint tu trouveras la macro suivante:

Sub ColorChartPoints()
    Dim oChart As Chart
    Dim oSerieTaux As Series
    Dim oSerieObjectif As Series
    Dim oPoint As Point
    Set oChart = Sheets("Feuil1").ChartObjects(1).Chart
    Set oSerieTaux = oChart.SeriesCollection("Taux de réalisation")
    Set oSerieObjectif = oChart.SeriesCollection("Objectif de réalisation")
    Dim i As Integer
    For i = 1 To UBound(oSerieTaux.Values)
        Set oPoint = oSerieTaux.Points(i)
        If oSerieTaux.Values(i) < oSerieObjectif.Values(i) Then
            oPoint.Interior.Color = vbRed
        Else
            oPoint.Interior.Color = vbGreen
        End If
    Next
End Sub

A bientôt

[Edition] Hello Philippe, CB60

 

[CB60]

Re : Graphique: variation de couleur en fonction d'un objectif

Bonjour
Regarde si cela te convient?
Le graph est évolutif ( tu peux ajouter des semaines)
La série Objectif est faite avec un graph nuage de point et une barre d'erreur.


Edit bonjour Hasco et Phlaurent

 

[vincent87]

Re : Graphique: variation de couleur en fonction d'un objectif

Bonjour à tous

Merci à Philippe, Hasco et CB60

J'allais demander si il n'y avait pas une solution qui évite de créer deux séries et Hasco y a répondu avant, parfait.

Bonne journée
Vincent