Courbe excel a 2 couleurs (conditional chart)

Version imprimable

30/07/2012, 16h47
hoook

Courbe excel a 2 couleurs (conditional chart)

Bonjour,

mon problème est le suivant :

Je cherche à faire en sorte que ma courbe excel change de couleur en fonction de la valeur des points !
exemple : lorsque un point est superieur a 6, je veux le colorer en rouge ! et en vert sinon.

Et je cherche a savoir comment coder ca en VB(A), car je génère le graphe dynamiquement via ACCESS (je crée un file .xls, j'écris des tableaux a l'interieur, et a partir de ces tableaux je crée mon graphe.

Il paraitrait que ce soit possible ... Je remercie quiquonque réponde à mon problème.
30/07/2012, 16h57
mercatog

Citation:

et a partir de ces tableaux je crée mon graphe

Quel est le code qui te crée le graphique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
'//  CONTRUCTION DU GRAPHIQUE EXCEL
        Dim Ch As ChartObject
        Set Ch = xlsfeuille.ChartObjects.Add(10, b, e, d)
        With Ch.Chart
            .ChartType = xlLineMarkers
            .DisplayBlanksAs = xlNotPlotted 'xlInterpolated
        End With
        Ch.Chart.SeriesCollection.NewSeries
        With Ch.Chart.SeriesCollection(1)
            .Name = "review Week " & semaine
            .Values = rowBilan
            .XValues = rowDate
            .Interior.Color = "blue"
        End With
 
'' Je souhaiterais que cette série ci-dessus soit rouge si < 6, verte si non !!
 
 
        Ch.Chart.SeriesCollection.NewSeries
        With Ch.Chart.SeriesCollection(2)
            .Name = "impacted DL"
            .Values = rowImp
            .XValues = rowDate
            .Interior.Color = "violet"
            .ChartType = xlColumnClustered
            .AxisGroup = 2
        End With
 
        Ch.Chart.SeriesCollection.NewSeries
        With Ch.Chart.SeriesCollection(3)
            .Name = "no impacted delay"
            .XValues = rowDate
            .Values = rowNoImp
            .Interior.Color = "orange"
            .ChartType = xlColumnClustered
            .AxisGroup = 2
        End With
 
        'Ch.Chart.SeriesCollection.NewSeries
        'With Ch.Chart.SeriesCollection(4)
        '    .Name = "Review 1814"
        '    .Values = row1814
        '    .XValues = rowDate
        '    .Interior.Color = "green"
        '    .ChartType = xlLineMarkers 'xlXYScatter
        'End With
 
        With Ch.Chart
           .HasTitle = True
            With .ChartTitle
               .Characters.Text = " REVIEW WEEK " & semaine
               .Shadow = False
            End With
 
            With .Axes(xlValue, xlPrimary)
                .HasTitle = True
                .AxisTitle.Characters.Text = "Indice Of performance"
                .MinimumScale = 0
                .MaximumScale = 23
            End With
            With .Axes(xlValue, xlSecondary)
                .HasTitle = True
                .AxisTitle.Characters.Text = "Time DL"
            End With
        End With

Adapte ce code à ton besoin (testé sur Excel 2007)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Grf As ChartObject
Dim i As Integer
Dim Klr As Long
Dim Tb                                             'Peut être tu as déjà ton tableau rowBilan ou RowImp
 
Set Grf = Feuil1.ChartObjects(1)                   'Adapte Feuil1 à ta feuille ou à ta variable feuille et l'index du graphique
With Grf.Chart.SeriesCollection(1)                 'Adapte l'indexde ta série
    Tb = .Values
    For i = 1 To .Points.Count
        Klr = IIf(Tb(i) < 6, vbRed, vbGreen)
        .Points(i).MarkerBackgroundColor = Klr
    Next i
End With
Set Grf = Nothing