Camenbert avec MsChart

Question

Ma question est peut etre un peut C.. mais comment on fait pour remplir un mschart(camenbert) avec 2 valeur A=12 et B=31 et en faire un graph de pourcentage.

Le graph est deja affich&#233;, comporte 1 colonne et 2 lignes.

Un grand merci a celui qui me donnera la reponse.

econs · Answer

Petit exemple avec un tableau d'1 colonne et de 2 lignes :





Dim dataCamembert(1) As Long

Dim nameDataCamembert(1) As String

Dim i As Long





            dataCamembert(0) = 2

            nameDataCamembert(0) = "Donn&#233;e 1"

            dataCamembert(1) = 5

            nameDataCamembert(1) = "Donn&#233;e 2"

        

        

        With MSChart1

            .ChartData = dataCamembert

            For i = 0 To 1

                .Column = i + 1

               
.ColumnLabel = nameDataCamembert(i) & " (" & dataCamembert(i)
& ")"

            Next i

            .Title.Text = "Exemple de camembert"

            .ShowLegend = True

            .RowLabel = ""

                   
.ChartType = VtChChartType2dPie

            .Repaint = True

            .Refresh

        End With










Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Camenbert avec MsChart

1 réponse

Discussions similaires