Discussion :

[ievtohs]

Bonjour à tous,

Je fais appel à vous en espérant que vous réussirez à me dépanner.
Je trace plusieurs graphiques à partir d'une meme source de données et mon problème est qu'à chaque fois que je trace un nouveau graphique, Excel applique des couleurs par défaut à chaque courbes.

Je souhaiterais que la courbe de la série 1 prenne la couleur de la cellule correspondant au "nom de la série 1".

Ex : - "nom de la série1"= A1
- le fond de la cellule A1 est rouge
--> je veux que la courbe 1 soit rouge

Par avance merci

[bellande]

Bonjour ,
Voici ce que l'on obtient comme étapes avec l'enregistreur de macros.
Il y a moyen de faire plus complet.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = Range("A1").Interior.ColorIndex
    End With
 
' il est possible aussi que le graphique soit dans une autre feuille : Sheets("Graph1")
 
End Sub

[ievtohs]

Merci Bellande pour ton aide, mais il reste une difficulté.
Lorsque j'ai fait mon graphique, j'ai sélectionné la cellule A1 comme cellule contenant le titre de la "série 1". Maintenant lorsque j'active la macro, je souhaite qu'elle retrouve la cellule A1 sans que je n'ai à la saisir dans le code.

Dans mon code ci-dessous, en fait je voudrai dire : Range(cellule qui contient le nom de la série(X)) mais je ne sais pas comment le dire en language VBA

Si vous avez la solution...
Par avance merci

Code :

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

1
2
3
4
5
6
 
For X = 1 To ActiveChart.SeriesCollection.Count
    With ActiveChart.SeriesCollection(X)
        .Interior.Color = Range("A1").Interior.Color
    End With
Next X

[mercatog]

A défaut de trouver plus direct, ci joint proposition à adapter:

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
Dim Plage As Range, c As Range
Dim Ch As ChartObject
Dim i As Integer
 
With Worksheets("Feuil1")
    Set Plage = .Range("E10:G22")                                    'Plage source données du graphique
    Set Ch = .ChartObjects("Graphique 1")
    With Ch.Chart.SeriesCollection
        For i = 1 To .Count
            Set c = Plage.Find(.Item(i).Name, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                .Item(i).Border.ColorIndex = c.Font.ColorIndex
                Set c = Nothing
            End If
        Next i
    End With
    Set Ch = Nothing
    Set Plage = Nothing
End With

[ievtohs]

En effet, la solution n'est pas très direct mais en tout cas elle marche.
Je t'en remercie.
Bonne soirée