MFC d'un graph de TCD

[jeffe]

Bonjour à tous et toutes,
Est il possible de colorier barres d'un graph de TCD en fonction de leur valeurs ?
Si une valeur est egale à 1 alors mettre la bare de l'histogramme en rouge, si elle est egale à 2, la colorier en vert, et cici pour 5 valeurs de 1 à 5 et 5 couleurs différentes

voici un petit fichier avec des data

et une image de ce que je voudrais faire
merci

 

[Cousinhub]

Re : MFC d'un graph de TCD

Bonjour,

en supposant que ton graphique soit sélectionné, essaie avec ce code :

Sub couleur_points()
Dim SerieCol As Series
Dim I As Byte
For Each SerieCol In ActiveChart.SeriesCollection
    For I = 1 To SerieCol.Points.Count
        If SerieCol.Values(I) = 1 Then
            SerieCol.Values(I).Points(I).Interior.ColorIndex = 4
        ElseIf SerieCol.Values(I) = 2 Then
            SerieCol.Points(I).Interior.ColorIndex = 6
        ElseIf SerieCol.Values(I) = 3 Then
            SerieCol.Points(I).Interior.ColorIndex = 3
        ElseIf SerieCol.Values(I) = 4 Then
            SerieCol.Points(I).Interior.ColorIndex = 8
        ElseIf SerieCol.Values(I) = 5 Then
            SerieCol.Points(I).Interior.ColorIndex = 41
        End If
    Next I
Next SerieCol
End Sub

Bonne journée

 

[CB60]

Re : MFC d'un graph de TCD

Bonjour
Un essai sans TCD
J'ai mis aussi la macro de Bhbh

 

[jeffe]

Re : MFC d'un graph de TCD

hello CB60, bhbh, le forum

je viens d'adapter votre code à mon fichier, tout semble fonctionner nikel
un grand merci à vous
resolu