Colorer le fond d'un graphe en 04 couleurs

bonjour,

voilà, ça fait un petit moment que j'essaye de résoudre un problèmes sur mon graphique de types nuages de bulles mais je n'y arrive pas !

Mon problème est que j'aimerai savoir s'il est possible de modifier la couleur du fond de mon graphe

en quatre couleurs Rouge, Orange vert claire et vert foncé selon la médiane des données

un exemple est en attaché.

urgent.
merci d'avance

Salut

Quelle chose comme çà ?

Pour se faire, après avoir sélectionner tes formes tu sélectionnes " varier..." comme sur la capture.

Cordialement,

Leakim

PS: Sur ce forum point d'urgence

Bonjour leakim,

est-ce que la couleur donnée dépend d'un paramètre ou est-elle aléatoire ?

Salut Steelson,

En ajoutant une légende et en faisant un tri de la colonne taille il y a bien un changement d'apparence plus homogène, mais la coloration reste aléatoire.

J'aurai bien aimé pouvoir gérer la coloration selon les valeurs d'une colonne de façon plus précise, mais je cherche encore.

Leakim

leakim a écrit :

J'aurai bien aimé pouvoir gérer la coloration selon les valeurs d'une colonne de façon plus précise, mais je cherche encore.

merci pour ta réponse

probablement par macro dans ce cas ...

pour colorier les bulles ...

Sub coloriser()
ActiveSheet.ChartObjects("Graphique 2").Activate
    With ActiveChart.FullSeriesCollection(1)
        For i = 1 To 20
            .Points(i).Interior.Color = Range("Tableau1[Couleur]")(i).Interior.Color
            .Points(i).Format.Fill.Transparency = 0
            .Points(i).Format.Fill.Solid
        Next
    End With
End Sub

Mareno a écrit :

en quatre couleurs Rouge, Orange vert claire et vert foncé selon la médiane des données

Tu peux reprendre la macro, et calculer en RGB les couleurs selon la médiane (que j'ai dû effacer)

edit : dans la macro, il faut remplacer 20 par .Points.count

Mareno a écrit :

Mon problème est que j'aimerai savoir s'il est possible de modifier la couleur du fond de mon graphe

en quatre couleurs Rouge, Orange vert claire et vert foncé selon la médiane des données

J'ai été un peu vite, je m'aperçois que c'est le fond que tu veux colorier ! désolé ma réponse ne convient pas ... mais j'aimerais aussi trouver la solution !

Désolé, j'ai eut trop d'empressement sur ma proposition

Je recommence alors.

Leakim

Proposition

Sub fond()

    With ActiveSheet.Shapes("Graphique 2")
        gl = .Left: gt = .Top: gw = .Width: gh = .Height
    End With
    ActiveSheet.ChartObjects("Graphique 2").Activate
    With ActiveChart
        With .PlotArea
            pl = .Left: pt = .Top: pw = .Width: ph = .Height
        End With
        xmin = .Axes(xlCategory).MinimumScale: xmax = .Axes(xlCategory).MaximumScale
        ymin = .Axes(xlValue).MinimumScale: ymax = .Axes(xlValue).MaximumScale
    End With

    ActiveSheet.Shapes.Range(Array("hg")).Select
    With Selection.ShapeRange
        .Left = gl + pl
        .Top = gt + pt
        .Width = pw * ([mx] - xmin) / (xmax - xmin)
        .Height = ph * (ymax - [my]) / (ymax - ymin)
        .ZOrder msoSendToBack
    End With
    ActiveSheet.Shapes.Range(Array("bg")).Select
    With Selection.ShapeRange
        .Left = gl + pl
        .Top = gt + pt + ph * (ymax - [my]) / (ymax - ymin)
        .Width = pw * ([mx] - xmin) / (xmax - xmin)
        .Height = ph * ([my] - ymin) / (ymax - ymin)
        .ZOrder msoSendToBack
    End With
    ActiveSheet.Shapes.Range(Array("hd")).Select
    With Selection.ShapeRange
        .Left = gl + pl + pw * ([mx] - xmin) / (xmax - xmin)
        .Top = gt + pt
        .Width = pw * (xmax - [mx]) / (xmax - xmin)
        .Height = ph * (ymax - [my]) / (ymax - ymin)
        .ZOrder msoSendToBack
    End With
    ActiveSheet.Shapes.Range(Array("bd")).Select
    With Selection.ShapeRange
        .Left = gl + pl + pw * ([mx] - xmin) / (xmax - xmin)
        .Top = gt + pt + ph * (ymax - [my]) / (ymax - ymin)
        .Width = pw * (xmax - [mx]) / (xmax - xmin)
        .Height = ph * ([my] - ymin) / (ymax - ymin)
        .ZOrder msoSendToBack
    End With
    Cells(1, 1).Select

End Sub

sachant que j'ai créé au préalable 4 rectangles appelés hg, bd, hg, bg (haut droit, bas droit, haut gauche, bas gauche)

le seul soucis que j'ai, ce sont les largeurs des axes que je n'ai pas réussi à identifier ...

Ok, je m'installe et j'apprends

et merci

Leakim

en bricolant un peu

            pl = .Left + 18: pt = .Top + 8: pw = .Width - 26: ph = .Height - 20

c'est mieux, mais ce n'est pas satisfaisant d'un point de vue programmation !