Bonjour;
J'utilise VB express 2010 et j'aimerai mettre mes données sur un histogramme empilé mais je ne connais pas comment faire
Merci par avance pour votre aide.
Bonjour;
J'utilise VB express 2010 et j'aimerai mettre mes données sur un histogramme empilé mais je ne connais pas comment faire
Merci par avance pour votre aide.
Bonjour,
Il vous faut regarder du côté de Microsoft Chart, il y a un très bon cours sur le site.
Bon dev.
est ton amis, MSDN est ton maître, pour le reste il y a Developpez.net. Pensez au au et
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Bonsoir,
En cherchant pour vous aider, j'ai trouvé cette fonction qui n'est pas proposée par l'Intellisence :
Par contre, il vous faudra le réorganiser un peu...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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)
Amusez vous bien
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%...
est ton amis, MSDN est ton maître, pour le reste il y a Developpez.net. Pensez au au et
Merci à vous tous, j'ai déjà trouvé la solution
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager