Faire un histogramme avec des couleurs différentes selon seuil

Bonjour.

J'ai un tableau avec 4 colonnes :

• > date et heure
• > écart entre mesure et consigne
• > température extérieure
• > température soufflage

Je souhaite avoir une courbe sous la forme d'un histogramme pour mes écarts.

Et j'aimerai que ces écarts soient colorés en fonction de leur valeur.

Concrètement j'aimerai que chacune des barres soient colorées ainsi :

• > écart < -2 => violet
• > écart compris entre -2 et -1,5 => rouge
• > écart compris entre -1,5 et -1 => orange
• > écart compris entre -1 et -0,5 => jaune
• > écart compris entre -0,5 et 0 => vert
• > écart compris entre 0 et 0,5 => vert
• > écart compris entre 0,5 et 1 => jaune
• > écart compris entre 1 et 1,5 => orange
• > écart compris entre 1,5 et 2 => rouge
• > écart >2 => violet

Je n'ai réussi qu'à faire une coloration en fonction de % mais mes valeurs vont de +5 à -6.

Comment faire ?

D'avance merci

Bonjour Korentine,

Voyez si le fichier joint vous convient

Bonjour,

Une proposition à étudier.

Cdlt.

Public Sub Color_chart()
Dim objChart As Chart
Dim sr As Series
Dim i As Long, ic As Long, pt As Single
    Set objChart = ActiveSheet.ChartObjects(1).Chart
    On Error Resume Next
    objChart.SeriesCollection(1).DataLabels.Delete
    On Error GoTo 0
    Set sr = objChart.SeriesCollection(1)
    sr.ApplyDataLabels Type:=xlDataLabelsShowValue
    For i = 1 To sr.Points.Count
        pt = VBA.Abs(sr.Points(i).DataLabel.Text)
        Select Case True
            Case pt < 0.5: ic = 5287936
            Case pt < 1: ic = 65535
            Case pt < 1.5: ic = 49407
            Case pt < 2: ic = 255
            Case Else: ic = 10498160
        End Select
        sr.Points(i).Format.Fill.ForeColor.RGB = ic
    Next i
    objChart.SeriesCollection(1).DataLabels.Delete
End Sub