Discussion :

[SoifDeProgrès]

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.
Graphe.docx

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 :

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

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 :

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

Set pt = Sheets("GENERAL").ChartObjects("Q(U) Graph").SeriesCollection(1).Points(i - 2)

Et le message d'erreur est :

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.

[SoifDeProgrès]

petit UP parce que je n'ai toujours pas de solution!
Et merci à alainTech pour la mise en forme du message...