Histogramme

Bonjour,

J'ai le tableau ci:

capture

Je souhaiterais obtenir un histogramme de ce type là, avec des couleurs différentes, car il me permettrait d'expliquer plus clairement ce que je voudrais dire .

diapositive1

Or , lorsque je sélectionne tout les données, je n'ai que 1 couleur qui apparaît , que faire ?

3

Merci d'avance

Bonjour,

Un début de réponse à adapter.

Cdlt.

Sub Macro1()
Dim ws As Worksheet
Dim objChart As ChartObject
Dim nb As Long, I As Long

    Set ws = ActiveWorkbook.Worksheets("Caster 3")
    Set objChart = ws.ChartObjects(1)
    nb = objChart.Chart.FullSeriesCollection(1).Points.Count
    For I = 1 To nb Step 3
        With objChart.Chart.FullSeriesCollection(1)
            .Points(I).Format.Fill.ForeColor.RGB = RGB(79, 129, 189)
            .Points(I + 1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Points(I + 2).Format.Fill.ForeColor.RGB = RGB(119, 147, 60)
        End With
    Next I

    Set objChart = Nothing: Set ws = Nothing

End Sub

Je vous remercie .

J'ai également une autre demande : Est-ce qu'il est de colorier le quadrillage de la manière là ?

diapositive1

Merci d'avance

J'ai ce message d'erreur que faire ?

sans titre

Bonjour

pour commencer, j'ai supprimer la fusion dans la N° de bobine, généralement la fusion sous Excel n'est pas une bonne solution si l'on veut exploiter les données, a voir selon vos besoins.

Ensuite je suis passé par un TCD, puis son graphique, voyez si cela correspond à vos attentes.

Cdlt

CORDIA5

Bonne journée.

C'est exactement ca , merci !

Et concernant m'a deuxième demande, vous avez une idée ?

Re-bonjour

voyez si cela convient, vous pouvez faire varier les couleurs selon vos choix..... et suivant l'échelle que vous souhaitez.

Cordia5

Cdlt

n'oubliez pas résolu, si cela répond à vos attentes.

C'est exactement ça, merci beaucoup pour vos réponses precises et claires .

Bonne continuations à vous

Rechercher des sujets similaires à "histogramme"