Discussion :

[Samus92500]

Bonjour,
Voici mon probleme: J'ai un histogramme contenant 4 barres de valeurs différentes (ex: val1 ,val2, val3, val4). Je souhaite que le titre de mon graphique "graphique 1" soit:
- De couleur rouge si : la somme de ces valeurs (val+val2+val3+val4) excede 15
- De couleur orange si: la somme de ces valeurs est comprise entre 5 et 15
- De couleur verte si: la somme de ces valeurs est inférieur à 5

Je souhaiterais une solution codé sous vba mais si toutefois vous avez une solution sur excel je suis tout de meme preneur.
Merci par avance.

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    With ActiveSheet.ChartObjects(1).Chart
        Select Case Application.Sum(.SeriesCollection(1).Values)
            Case Is > 15
                .ChartTitle.Font.ColorIndex = 3
            Case 5 To 15
                .ChartTitle.Font.ColorIndex = 46
            Case Is < 5
                .ChartTitle.Font.ColorIndex = 4
        End Select
    End With

On peut associer le code à une macro événementielle pour automatiser le changement de couleurs en cas de changement de valeur