Discussion :

[shynen]

Bonjour à tous , dans le cadre de mon projet j'aurai besoin d'un coup de main sur le code permettant de mettre en couleur la barre d'un histogramme suivant sa valeur d'abscisses .
J'ai déjà eu une partie de la solution en utilisant :

Code :

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

1
2
3
ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Points(6).Select
    ActiveChart.SeriesCollection(1).Points(6).Interior.Color = RGB(127, 255, 0)

( Peut être en remplaçant le "6" par la valeur choisie je ne sais pas ... )

Mais le problème c'est que j'aimerai automatiser cette mise en couleur suivant le nom de l'étiquette correspondante .

Par exemple : Prends la couleur rouge pour la valeur "truc" . Je ne trouve pas mon bonheur sur le moteur de recherche...

Je reste à disposition pour d'éventuelles questions . Merci de votre temps !

[shynen]

J'ai trouvé la solution grâce à ce code

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
Sub ??????????()
 
    Dim n As Point, 
    maval As String, 
    i As Integer
    i = 0
    For Each n In ActiveChart.SeriesCollection(1).Points
 'Je n'ai qu'une Collection dans mon chart, mais chaque collection a n Points
       i = i + 1
        maval = Left(p.DataLabel.Text, 10)
'Permet de récupérer les 10 premières lettres de l'etiquette de mon point
        If maval = "??????????" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 32
        ElseIf maval = "?????????" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
       'Et ainsi de suite
        End If
    Next n
End Sub

En espérant en avoir aidé quelques uns . Bonne continuation