Changer de couleur chacune des courbes d'un graphique

Résolu/Fermé

sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015 - 21 janv. 2014 à 10:30
sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015 - 23 janv. 2014 à 10:35

Bonjour,

Comme indiqué dans le titre, je souhaite savoir s'il est possible en VBA de changer la couleur des courbes d'un graphiques?

J'ai réussi avec Excel et l'enregistreur de macro ne m'enregistre que la sélection des courbes :

    ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.SeriesCollection(1).Points(1).Select
    ActiveChart.SeriesCollection(1).Points(2).Select
    ActiveChart.SeriesCollection(1).Points(3).Select

Merci du coup de pouce!

A voir également:

Excel changer couleur graphique
Changer dns - Guide
Changer carte graphique - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Graphique excel - Guide

3 réponses

Réponse 1 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 janv. 2014 à 10:51

Bonjour,

Il faut utiliser la propriété Border de SeriesCollection() et ensuite la propriété Color :

ActiveChart.SeriesCollection(1).Border.Color = RGB(255,0,0)

;0)

Réponse 2 / 3

sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015
21 janv. 2014 à 10:50

J'ai trouvé ceci :

Sub Macro5()

    Dim NbPoints
    
    NbPoints = ActiveSheet.ChartObjects("Chart 6").Chart.SeriesCollection(1).Points.Count
    
    For i = 1 To NbPoints
        With ActiveSheet.ChartObjects("Chart 6").Chart.SeriesCollection(1).Points(i)
            .Interior.Color = RGB(255, 75 * i, 0)
        End With
    Next i
    
End Sub

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 janv. 2014 à 13:52

Tu demandes d'affecter une couleur à une courbe ... mais là ton code s'applique à un graphe histogramme !!!

Discussions similaires

impossible de colorer les cellules sous excel

Passer du rvb en cmjn en gardant les mêmes couleurs?

Nuances de couleurs dans excel

Mise en forme conditionnelle cellule vide dans une colonne

Comment savoir si le site de vente http://nbchaussure.fr est réellement fiable?

Câblage prise murales RJ45 en 468A ou B?