XL 2010 Changer la mise en forme de point de données

[noel33]

Bonjour à tous,

je bloque sur un fichier, une jauge créé avec un graphique dans laquelle j'aimerai que mon curseur change de couleur en fonction de la valeur.
Dans l'exemple, j'aimerai que la valeur de l'aiguille "colle" aux couleurs de la jauge.

Si vous pouvez m'aider, ce serai extra...

 

[D.D.]

Hello.

Essaye ceci dans THISWORKBOOK

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Valeur = Range("Feuil1!C7")
    Coul = RGB(0, 176, 80)
    If Valeur < 500 Then Coul = RGB(255, 192, 0)
    If Valeur < 200 Then Coul = RGB(255, 0, 0)
    Sheets("Feuil1").ChartObjects("Graphique 2").Chart.FullSeriesCollection(2).DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = Coul

End Sub

(Modif à 9:53 pour éviter la perte du focus. Pour la transition Orange - Vert, valeur à adapter (à priori plutôt 700))

 

[noel33]

Extra,

merci du coup de main!

N.