1 pièce(s) jointe(s)
Comparer 2 séries de données
Bonjour le forum,
Cela fait un petit moment que je parcours le web mais je bloque.
J'aimerais "colorier" les points d'une série de donnée si ceux-ci se trouvent entre deux courbe (mon gabarit).
Le problème est que les points sont issues de 2 colonnes d'une autre feuille et que les séries de données à l'origine du gabarit ne sont en fait dessinés que par 6 points.
Pièce jointe 147836
Le gabarit est définit par ConsHigh et ConsLow, les points sont en vert mais il y en a bien plus que ça.
Pour l'instant, je veux colorier en orange les points situés en dessous de la série de données 3.
Le bout de code, dans le quel j'entre si Q est < 0, est le suivant :
Code:
1 2 3 4 5 6 7 8 9 10 11
| Dim pt As Points
Set pt = Sheets("GENERAL").ChartObjects("Q(U) Graph").SeriesCollection(1).Points(i - 2)
For Each pt In Sheets("GENERAL")
If pt < ActiveChart.SeriesCollection(3) Then
With ActiveChart.SeriesCollection(1).Points(i - 2)
.MarkerBackgroundColor = RGB(255, 120, 0)
.MarkerForegroundColor = RGB(255, 120, 0)
End With
End If
Next |
La ligne suivante est surlignée :
Code:
Set pt = Sheets("GENERAL").ChartObjects("Q(U) Graph").SeriesCollection(1).Points(i - 2)
Et le message d'erreur est :
Citation:
Erreur d'execution '438' : Propriété ou méthode non géré par cette objet.
J'ai essayer de déclarer la variable pt en tant qu'"Object", mais ça ne fonctionne pas.
Si quelqu'un à une idée de comment faire...
Merci d'avance.