XL 2016 Changer Couleur série d'un graphique

KTM · Samedi à 17:35

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

VB:

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 · Samedi à 19:43

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

KTM · Samedi à 19:47

Dranreb à dit:
Bonsoir.
Quelle erreur renvoie-t-il et sur quelle instruction ?

VB:

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

Dranreb · Samedi à 19:49

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

KTM · Samedi à 19:54

Dranreb à dit:
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

Code:

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

Dranreb · Samedi à 19:58

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

VB:

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 · Samedi à 20:03

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

VB:

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

VB:

      Set Ser = Cht.SeriesCollection(5)

job75 · Samedi à 20:07

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 :

VB:

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 · Samedi à 20:08

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

KTM · Samedi à 20:13

job75 à dit:

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 :

VB:

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

VB:

Set ser = cht.SeriesCollection(5)

Dranreb · Samedi à 20:16

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

KTM · Samedi à 20:44

Dranreb à dit:
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 · Samedi à 20:47

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

KTM · Samedi à 21:10

Dranreb à dit:
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 · Samedi à 21:15

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.

XL 2016 Changer Couleur série d'un graphique

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires

XL 2016 Changer Couleur série d'un graphique

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency