MFC d'un graph de TCD

jeffe · 28 Juillet 2009

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 · 28 Juillet 2009

Re : MFC d'un graph de TCD

Bonjour,

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

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 · 28 Juillet 2009

Re : MFC d'un graph de TCD

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

jeffe · 28 Juillet 2009

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

MFC d'un graph de TCD

jeffe

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

CB60

XLDnaute Barbatruc

Pièces jointes

jeffe

XLDnaute Impliqué

Discussions similaires

MFC d'un graph de TCD

jeffe

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

CB60

XLDnaute Barbatruc

Pièces jointes

jeffe

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency