Discussion :

[pimpom81]

Bonjour le forum,

J'ai un point bloquant lors de l'éxécution d'un Private sub dans un userform, pour changer la couleur des barres de graphique de barres empilées suivant les valeurs.
Lors de l'éxécution de celui-ci j'ai un essage d'erreur "438 - Propriété ou méthode non supportée".

NB : Mes variables "Ch", "i", "Wb1" et "Ws1" sont déclarées en public dans le module de classe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Chart_Activate()
 
Set Wb1 = Workbooks("Book1.xlsb")
Set Ws2 = Wb1.Worksheets("Sheet 1")
 
Application.ScreenUpdating = False
 
Set Ch = Worksheets("Charts").ChartObjects("Participation").Chart
 
With Ch
    With .SeriesCollection(1)
        For i = 1 To .Points.Count
            If .SeriesCollection(1).Value >= 2 Then
                .Points(i).ForeColor.RGB = RGB(0, 176, 80)
            ElseIf .SeriesCollection(1).Value = 1 Then
                .Points(i).ForeColor.RGB = RGB(255, 153, 51)
            ElseIf .SeriesCollection(1).Value = 0 Then
                .SetElement (msoElementDataLabelCenter)
                With Selection.Format.TextFrame2.TextRange.Font.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                    .Transparency = 0
                    .Solid
                End With
                Selection.Format.TextFrame2.TextRange.Font.Italic = msoTrue
            End If
        Next i
    End With
    With .FullSeriesCollection(2).Select
        With Selection.Format.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 112, 192)
            .Transparency = 0
        End With
    End With
End With
End Sub

L'objet du Private sub est de modifier les couleurs des barres du graphique supérieures ou égales 2 en Vert, égales à 1 en Orange et égales à 0 afficher les données et les formater.

Les données sont issues d'un tableau situé sur une autre feuille.

Merci par avance pour votre participation.

[Menhir]

Lors de l'éxécution de celui-ci j'ai un essage d'erreur "438 - Propriété ou méthode non supportée".

Quelle est la ligne désignée par le débugage ?

Code :

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

1
2
3
4
With Ch
    With .SeriesCollection(1)
        For i = 1 To .Points.Count
            If .SeriesCollection(1).Value >= 2 Then

Je pense que le second .SeriesCollection(1) n'est pas convenable puisqu'il est membre de ... .SeriesCollection(1).
Il est probable que tu as oublié de corriger cette ligne quand tu as mis en place le second With.

Idem dans les lignes suivantes.

[pimpom81]

Bonjour Menhir,

Le débugage désigne la ligne 13.

[Menhir]

Le débugage désigne la ligne 13.

Voir la fin de mon message précédent.

[pimpom81]

J'ai le même message d'erreur avec la correction suivante, d'après la réponse de Menhir.

Code :

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

1
2
3
4
With Ch
    With .SeriesCollection(1)
        For i = 1 To .Points.Count
            If .Value >= 2 Then

[Phil Free]

Bonjour le file,


. value n'est pas une propriété de SeriesCollection !!!

pour travailler avec les valeurs des points c'est un peu plus compliqué car on ne peu pas non plus passer par l'objet point.
Les valeurs sont associées à la seriescollection sous la forme d'un tableau de type array.

Code :

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

1
2
3
4
5
6
7
8
9
Sub demo()
Dim SerieValues As Variant, i As Long
 
SerieValues = ActiveChart.SeriesCollection(1).Values 'ceci va dimensionner en variable tableau la variable SerieValues
 
For i = 1 To UBound(SerieValues)
    Debug.Print SerieValues(i)
Next
End Sub