Bonjour à tous,
J'ai un graphique que j'obtiens à partir d'un tableau. Ce tableau est trié en fonction d'une colonne comprenant des nombres, afin d'aller du plus grand au plus petit.
Les noms associés à ces nombres sont donc amenés à changer de place, et donc de couleur dans le graphique.
Or un nom doit avoir une couleur associée, qui est changée manuellement actuellement...
La couleur qui doit être associé est tout simplement la couleur de remplissage de la cellule du Nom.
J'ai réussi à obtenir un code qui fonctionne, mais pas dans le cas qui m'intéresse ^^"
Ce code fonctionne pour ce tableau :
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 Sub f1() 'Variables Dim onglet As String 'Nom de l'onglet où se trouve le graphique Dim graphique As String 'Nom du graphique Dim colonne_Nom As String 'Lettres de la colonnes où se trouve la série à colorer Dim MesSeries As Series '- onglet Feuil1, graphique Graph_1 onglet = "Feuil1" graphique = "Graph_1" colonne_Nom = "F:F" Sheets(onglet).Activate ActiveSheet.ChartObjects(graphique).Activate With ActiveChart For Each MesSeries In .SeriesCollection MesSeries.Interior.Color = Sheets(ActiveSheet.Name).Range(colonne_Nom).Cells.Find(MesSeries.Name).Interior.Color Next End With End Sub
Le problème c'est qu'en ordonnée je n'ai pas les noms mais le numéro de la série. Si j'alterne je me retrouve avec ça :
C'est le type de graphique que je veux, mais mon code ne fonctionne plus. Et je n'ai trouvé aucun moyen de sélectionner les ordonnées, je ne peux sélectionner que les abscisses...
Avez-vous une idée pour résoudre ce problème ?
Partager