Histogramme empilé 100%

Version imprimable

08/05/2013, 15h47
jellikh1206

Histogramme empilé 100%

Bonjour;
J'utilise VB express 2010 et j'aimerai mettre mes données sur un histogramme empilé mais je ne connais pas comment faire :cry:

Merci par avance pour votre aide.
08/05/2013, 16h28
Rainui

Bonjour,

Il vous faut regarder du côté de Microsoft Chart, il y a un très bon cours sur le site.

Bon dev.

Merci, mais ce que je cherche c'est comment créer un histogramme empilé sur excel 2007 et non pas sur un Form.
J'arrive à créer des series mais je ne sais pas comment les afficher sous forme d'histogramme empilé.
voilà les series que j'ai créé:

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
 
    PR1(0) = sheet2.Range("E1").Value
            PR1(1) = sheet2.Range("F1").Value
            PR1(2) = sheet2.Range("G1").Value          
            Dim sc1 As Excel.Series
            sc1 = sheet1.ChartObjects().Add(10, 10, 300, 400).Chart.seriesCollection.Newseries
            With sc1
                .Values = PR1
                .XValues = Operateur
                .ChartType = XlChartType.xlCylinderCol
            End With
            PR2(0) = sheet2.Range("E2").Value
            PR2(1) = sheet2.Range("F2").Value
            PR2(2) = sheet2.Range("G2").Value
 
            Dim sc2 As Excel.Series
            sc2 = sheet1.ChartObjects().Add(10, 10, 300, 400).Chart.seriesCollection.Newseries
            With sc2
                .Values = PR2
                .XValues = Operateur
                .ChartType = XlChartType.xlCylinderCol
            End With
 
            PR3(0) = sheet2.Range("E3").Value
            PR3(1) = sheet2.Range("F3").Value
            PR3(2) = sheet2.Range("G3").Value
 
            Dim sc3 As Excel.Series
            sc3 = sheet1.ChartObjects().Add(10, 10, 300, 400).Chart.seriesCollection.Newseries
            With sc3
                .Values = PR3
                .XValues = Operateur
                .ChartType = XlChartType.xlCylinderCol
            End With

08/05/2013, 19h39
Rainui
Bonsoir,

En cherchant pour vous aider, j'ai trouvé cette fonction qui n'est pas proposée par l'Intellisence :
Code:

1 2 3 4 Dim _Graph As Excel.ChartObject = oSh.ChartObjects().Add(10, 10, 300, 400) 'Application d'un Custom Type _Graph.Chart.ApplyCustomType(XlChartType.xl3DBarStacked100)
Par contre, il vous faudra le réorganiser un peu...

Amusez vous bien :mouarf:

EDIT: On aurait pu passer par Chart.ChartStyle mais pas de bol, il ne prends pour valeur que de 1 à 48... Entier qui représente un style de graphique et bien sûr aucun dans cette plage n'est un graphique empilé 100%...

Merci à vous tous, j'ai déjà trouvé la solution :D

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
  Dim sc1 As Excel.Series
            With sheet1.ChartObjects().Add(480, 10, 410, 250).Chart.SeriesCollection
  PR3(0) = sheet2.Range("A3").Value
                PR3(1) = sheet2.Range("B3").Value
                PR3(2) = sheet2.Range("C3").Value
 
                With .NewSeries
                    .Values = PR3
                    .XValues = Operateur
                    .ChartType = XlChartType.xlCylinderColStacked
                End With
 
                PR2(0) = sheet2.Range("A2").Value
                PR2(1) = sheet2.Range("B2").Value
                PR2(2) = sheet2.Range("C2").Value
 
                With .NewSeries
                    .Values = PR2
                    .XValues = Operateur
                    .ChartType = XlChartType.xlCylinderColStacked
                End With
 
                PR1(0) = sheet2.Range("A1").Value
                PR1(1) = sheet2.Range("B1").Value
                PR1(2) = sheet2.Range("C1").Value
                With .NewSeries
                    .Values = PR1
                    .XValues = Operateur
                    .ChartType = XlChartType.xlCylinderColStacked
                End With
 
 
 
            End With