XL 2016 Changer Couleur série d'un graphique

[KTM]

Bonjour chers tous
Je voudrais attribuer la couleur rouge à la dernière série de chacun des quatre graphiques présents sur ma feuille "DASHBORD" par macro.
J'ai le code ci dessous mais il me renvoie une erreur.
Aidez moi à le corriger.
Merci

Sub colorChart()
    Dim cht As Chart
    Dim ser As Series
    Dim i As Integer
    For i = 1 To 4
                Set cht = ThisWorkbook.Sheets("DASHBORD").Charts("Graphique " & i)
                Set ser = cht.SeriesCollection(5)
            
                With ser.Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                End With
   Next i
End Sub

 

[Dranreb]

Bonsoir.
Quelle erreur renvoie-t-il et sur quelle instruction ?

 

[KTM]

Bonsoir.
Quelle erreur renvoie-t-il et sur quelle instruction ?

Set cht = ThisWorkbook.Sheets("DASHBORD").Charts("Graphique " & i)

 

[Dranreb]

Vous n'avez pas dit quelle erreur, mais il est probable que ce graphique n'existe pas dans la feuille.

 

[KTM]

Bonsoir.
Quelle erreur renvoie-t-il et sur quelle instruction ?

Erreur d'exécution 438
propriété ou méthode non gérée par cet objet

Set cht = ThisWorkbook.Sheets("DASHBORD").Charts("Graphique " & i)

 

[Dranreb]

En effet un Worksheet n'a pas de collection Charts mais une collection ChartObjects
J'aurais donc peut être plutôt fait :

Sub ColorChart()
   Dim COt As ChartObject, Cht As Chart, Ser As Series
   For Each COt In ThisWorkbook.Sheets("DASHBORD").ChartObjects
      Set Cht = COt.Chart
      Set Ser = Cht.SeriesCollection(5)
      With Ser.Format.Fill
         .Visible = msoTrue
         .ForeColor.RGB = RGB(255, 0, 0)
         End With
      Next COt
   End Sub

 

[KTM]

En effet un Worksheet n'a pas de collection Charts mais une collection ChartObjects
J'aurais donc peut être plutôt fait :

Sub ColorChart()
   Dim COt As ChartObject, Cht As Chart, Ser As Series
   For Each COt In ThisWorkbook.Sheets("DASHBORD").ChartObjects
      Set Cht = COt.Chart
      Set Ser = Cht.SeriesCollection(5)
      With Ser.Format.Fill
         .Visible = msoTrue
         .ForeColor.RGB = RGB(255, 0, 0)
         End With
      Next COt
   End Sub

Une autre erreur 1004
paramètre non valide

      Set Ser = Cht.SeriesCollection(5)

 

[job75]

Bonsoir KTM,

D'après votre code il y a 5 séries dans chaque graphique, il n'y a donc qu'une ligne à corriger :

Sub colorChart()
    Dim cht As Chart
    Dim ser As Series
    Dim i As Integer
    For i = 1 To 4
                Set cht = ThisWorkbook.Sheets("DASHBORD").ChartObjects("Graphique " & i).Chart
                Set ser = cht.SeriesCollection(5) 'il y a 5 séries dans chaque graphique
            
                With ser.Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                End With
   Next i
End Sub

A+

 

[Dranreb]

En mettant Set Ser = Cht.SeriesCollection(Cht.SeriesCollection.Count) peut être ? …

 

[KTM]

Bonsoir KTM,

D'après votre code il y a 5 séries dans chaque graphique, il n'y a donc qu'une ligne à corriger :

Sub colorChart()
    Dim cht As Chart
    Dim ser As Series
    Dim i As Integer
    For i = 1 To 4
                Set cht = ThisWorkbook.Sheets("DASHBORD").ChartObjects("Graphique " & i).Chart
                Set ser = cht.SeriesCollection(5) 'il y a 5 séries dans chaque graphique
           
                With ser.Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                End With
   Next i
End Sub

A+

MEME ERREUR sur la même instruction...

Set ser = cht.SeriesCollection(5)

 

[Dranreb]

Il y a peut être moins de 5 séries. Essayez donc Cht.SeriesCollection(Cht.SeriesCollection.Count) pour traiter la dernière …

 

[KTM]

Il y a peut être moins de 5 séries. Essayez donc Cht.SeriesCollection(Cht.SeriesCollection.Count) pour traiter la dernière …

on y est presque !!!!!
avec cette instruction c'est toutes les séries qui deviennent Rouge y compris la dernière.
Mais mon objectif est que seule la dernière soit en rouge.

 

[Dranreb]

Il n'y a pas de raison qui puisse expliquer cela.
Qu'est-ce que vous attendez pour joindre votre classeur.

 

[KTM]

Il n'y a pas de raison qui puisse expliquer cela.
Qu'est-ce que vous attendez pour joindre votre classeur.

Voici une illustration dans ce fichier .Merci ...

 

[Dranreb]

Il n'y a qu'une seule série dans tous vos graphiques.
Je suppose que c'est plutôt le dernier point de chacune que vous voulez mettre en rouge.
Voir leur propriété Points.