Discussion :

[abfabulous]

Bonjour

Je ne me connais pas du tout en développement, bien que je j'apprenne à automatiser mes tableaux Excel.

mon problème est que j'ai un graphe qui me donne en ordonné la liste des fournisseurs et en abscisse leurs nombres de jours de retards (positif) ou d'avance (négatif). Dans le graph je n'ai par défaut que la couleur bleue

J'aimerai pour cela mettre une couleur verte pour ceux qui sont en avance et rouge pour ceux qui sont en retard.

Merci de votre aide

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CouleurGraph()
    Dim Vals
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            Vals = .Values
            If Vals(i) > 0 Then
                .Points(i).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            Else
                .Points(i).Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
            End If
        Next i
    End With
End Sub

[mercatog]

Pour un Histogramme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Colorier()
Dim i As Integer
Dim Tb
 
With Worksheets("Feuil1").ChartObjects(1).Chart.SeriesCollection(1)
    Tb = .Values
    For i = 1 To UBound(Tb)
        .Points(i).Interior.ColorIndex = IIf(Tb(i) < 0, 3, 14)
    Next i
End With
End Sub

[Daniel.C]

Pour un Histogramme

Les deux solutions sont également valables pour des barres horizontales.