Discussion :

[twitty20]

Bonsoir

Je travaille avec VS 2005, dans mon appli j'ai besoin de faire des Stat, j'ai utilisé donc (Microsoft Chart Control 6.0) et j'ai abouti à des camamberts 2D, mon problème c'est que je les veux en 3D.

Est-ce possible avec VB.NET ??

Merci d'avance

[Danyel]

J'ai regarde si ZedGraph fait le 3D, mais ca n'a pas l'air.
En tout as, je pense que ca sera deja mieux.

[twitty20]

Merci Danyel
Je vien de voir le lien que vous m'avez donné
Je continue commem mes rech Mais apparemment

[Danyel]

Peut etre trouveras-tu ce que tu cherches avec l'ami

[Silvers]

J'ai deja voulu faire sa aussi mais j'ai tous simplement utilisé excel.

J'instancie Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
            Dim l_objexcel As Excel.Application
            Dim l_objworkbook As Excel.Workbook
            l_objexcel = New Excel.Application
            l_objworkbook = l_objexcel.Workbooks.Add
            l_objexcel.Visible = False
            Dim i As Integer = 0

Je remplis mes colonnes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 For i = 1 To DGVAP.Rows.Count - 1
                l_objexcel.Range("A" & i).Value = DGVAP.Rows(i - 1).Cells(0).Value
                l_objexcel.Range("B" & i).Value = DGVAP.Rows(i - 1).Cells(2).Value
            Next

Je créer mon graph (avec excel 2007 donc de suberbe camamberts 3d avec reflets et ombres) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 l_objexcel.Range("A1:B" & i - 1).Select()
            l_objexcel.ActiveSheet.Shapes.AddChart.Select()
            l_objexcel.ActiveChart.SetSourceData(Source:=l_objexcel.Range("A1:B" & i - 1))
            l_objexcel.ActiveChart.ChartType = Excel.XlChartType.xl3DPieExploded
            l_objexcel.ActiveChart.ChartStyle = 26
            l_objexcel.ActiveChart.ClearToMatchStyle()
            l_objexcel.ActiveChart.ApplyLayout(2)
            l_objexcel.ActiveChart.SeriesCollection(1).Select()
            l_objexcel.ActiveSheet.ChartObjects("Graphique 1").Activate()
            l_objexcel.ActiveChart.ChartTitle.Text = "MON TITRE"

Je le selectionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.ActiveChart.ChartArea.Select()

Je le copy et le colle dans un picture box de mon application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
l_objexcel.ActiveChart.ChartArea.Copy()
            Dim objbmp As Object
            objbmp = Clipboard.GetImage
            Graphe.Image = objbmp

Voila tu ferme excel et c'est fini !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 l_objworkbook.close false
            l_objExcel.quit
            l_objworkbook = nothing
            l_objExcel = Nothing

Moi j'adore cette méthode.

[Silvers]

Sinon j'utilise aussi le controle Infragistic UltraChart qui est tout aussi excellent

[twitty20]

Bonjour
Merci bcp "Silvers" pour votre réponse, Je m'excuse d'avoir tardé à répondre car j'ai essayé de travailler avec la macro comme vous avez dis, j'ai modifier un peu le pgm, mais là j suis bloquée (j'ai tjrs une erreur: Exception de HRESULT: 0x800A03EC).

Voici mon pgm "PGM CHART"
Rq: J'ai testé mon pgm, j'ai pas de problème au niveau du remplissage du datagridview, le problème est dans la deuxième partie du pgm
Je vous envoie aussi le pgm de la "MACRO"

Si vous pouvez m'aider ca serait trés gentil de votre part

Merci

[twitty20]

Bonjour
Merci bcp "Silvers" pour votre réponse, Je m'excuse d'avoir tardé à répondre car j'ai essayé de travailler avec la macro comme vous avez dis, j'ai modifier un peu le pgm, mais là j suis bloquée (j'ai tjrs une erreur: Exception de HRESULT: 0x800A03EC).

Je vous envoie mon pgm "PGM CHART"
Rq: J'ai testé mon pgm, j'ai pas de problème au niveau du remplissage du datagridview les données s'affichent normalement, le problème est dans la deuxième partie du pgm.
Je vous envoie aussi le pgm de la "MACRO"

Si vous pouvez m'aider ca serait trés gentil de votre part

Merci

[Silvers]

Je regarde tout de suite

[Silvers]

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
i = DataGridView1.Rows.Count - 1
        l_objexcel.Range("A1:B" & i - 1).Select()
        l_objexcel.Charts.Add()
        l_objexcel.ActiveChart.ChartType = XlChartType.xl3DPie
        l_objexcel.ActiveChart.ChartType = Excel.XlChartType.xl3DPieExploded
        l_objexcel.ActiveChart.SetSourceData(Source:=l_objexcel.Range("A1:B" & i - 1))
        Dim objbmp As Object
        objbmp = Clipboard.GetImage
        PictureBox1.Image = objbmp
 
        l_objexcel.ActiveChart.Location(Excel.XlChartLocation.xlLocationAsObject, objbmp)
        l_objexcel.ActiveChart.ChartTitle.Text = "MON TITRE"
        l_objworkbook.Close(False)
        l_objexcel.Quit()
        l_objworkbook = Nothing
        l_objexcel = Nothing

Le problème c'est qu'a aucun moment tu copie le graphe dans le presse papier, juste apres lui avoir donné son titre tu le ferme, il faut que tu le copie et que tu le colle dans le picturebox avant de le fermer juste apres l'avoir parametré:
Tu met Clipboard.GetImage alors que tu ne la pas copié

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
i = DataGridView1.Rows.Count - 1
        l_objexcel.Range("A1:B" & i - 1).Select()
        l_objexcel.Charts.Add()
        l_objexcel.ActiveChart.ChartType = XlChartType.xl3DPie
        l_objexcel.ActiveChart.ChartType = Excel.XlChartType.xl3DPieExploded
        l_objexcel.ActiveChart.SetSourceData(Source:=l_objexcel.Range("A1:B" & i - 1))
        l_objexcel.ActiveChart.ChartTitle.Text = "MON TITRE"
        l_objexcel.ActiveChart.ChartArea.Select()
        l_objexcel.ActiveChart.ChartArea.copy()
        Dim objbmp As Object
        objbmp = Clipboard.GetImage
        PictureBox1.Image = objbmp
        l_objworkbook.Close(False)
        l_objexcel.Quit()
        l_objworkbook = Nothing
        l_objexcel = Nothing

[twitty20]

Merci pour votre réponse instantanée
J'ai réecrit le code tel que vous m'avez dit mais j'ai une erreur au niveau de la ligne:
l_objexcel.ActiveChart.SetSourceData(Source:=l_objexcel.Range("A1:B" & i - 1))

L'erreur est:
"Exception de HRESULT : 0x800A03EC"
J'ai rien compris !

Merci

[Silvers]

A ce moment la "i" vaut combien ?