point de couleur specifique dans Graph

[panjas51]

J'ai une serie de données grapphées (en courbe - ligne).

Si une des données est supérieure à une valeur, je voudrai lui appliquer une couleur specifique (Rouge).

En gros
ActiveChart.SeriesCollection(1).Points(50).VALUE n'existe pas....


Aussi, si 3 point d'affilé sont d'en un ordre croissant ou décroissant, je voudrai avoir ce dernier point d'une couleur specifique aussi (Jaune)

Dans la feuille de données, c'est facile pour le premier cas (Format conditionnel), pour le 2e j'ai mas trouvé en auto, mais je pense être capable de trouver avec VBA, mais sur un graph...?

 

[panjas51]

Re : point de couleur specifique dans Graph

Et Voila....;


Dim C, dSrces As Range
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Chart 20").Activate
ActiveChart.SeriesCollection(1).Select
Set aC = ActiveCell

Set dSrces = Range("'L1'!$CF$3:$CF$200")

' marquage des point Rouge NF2

For i = 1 To dSrces.Rows.Count
If dSrces.Cells(i, 1).Value > 10 And dSrces.Cells(i, 1).Value <> "" Then
ActiveSheet.ChartObjects("Chart 20").Activate
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 3
ActiveChart.SeriesCollection(1).Points(i).MarkerForegroundColorIndex = 3
ActiveChart.SeriesCollection(1).Points(i).MarkerStyle = xlDiamond
ActiveChart.SeriesCollection(1).Points(i).MarkerSize = 5
ActiveChart.SeriesCollection(1).Points(i).Shadow = False
Else
ActiveSheet.ChartObjects("Chart 20").Activate
ActiveChart.SeriesCollection(1).Points(i).MarkerStyle = xlNone
End If
Next i
Application.ScreenUpdating = True
'aC.Select
End Sub