Graphique VBA EXCEL ChartSpace
Résolu
ukos
Messages postés
56
Date d'inscription
lundi 22 novembre 2004
Statut
Membre
Dernière intervention
27 mai 2008
-
3 juin 2005 à 11:09
Utilisateur anonyme - 10 déc. 2012 à 17:31
Utilisateur anonyme - 10 déc. 2012 à 17:31
4 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
3 juin 2005 à 11:20
3 juin 2005 à 11:20
Bonjour,
Voici un modèle, si celà peut t'aider. Placer un MSChart sur le UserForm
Private Sub CommandButton1_Click()
Dim arrData(0 To 6, 1 To 2)
Dim i As Integer
For i = 0 To 6
' Les valeurs de la colonne A remplissent la première
' série du tableau. Si ces valeurs sont des chaînes,
' elles deviennent des étiquettes de lignes.
Dim arrValues(1 To 5, 1 To 3)
arrData(i, 1) = Worksheets(1) _
.Range("A" & i + 1).Value
' Les valeurs de la colonne B remplissent ensuite la seconde série.
arrData(i, 2) = Worksheets(1) _
.Range("B" & i + 1).Value
Next i
MSChart1.SeriesType = VtChSeriesType2dArea
MSChart1.ChartType = VtChChartType2dBar
MSChart1.ChartData = arrData
End Sub
jpleroisse
Voici un modèle, si celà peut t'aider. Placer un MSChart sur le UserForm
Private Sub CommandButton1_Click()
Dim arrData(0 To 6, 1 To 2)
Dim i As Integer
For i = 0 To 6
' Les valeurs de la colonne A remplissent la première
' série du tableau. Si ces valeurs sont des chaînes,
' elles deviennent des étiquettes de lignes.
Dim arrValues(1 To 5, 1 To 3)
arrData(i, 1) = Worksheets(1) _
.Range("A" & i + 1).Value
' Les valeurs de la colonne B remplissent ensuite la seconde série.
arrData(i, 2) = Worksheets(1) _
.Range("B" & i + 1).Value
Next i
MSChart1.SeriesType = VtChSeriesType2dArea
MSChart1.ChartType = VtChChartType2dBar
MSChart1.ChartData = arrData
End Sub
jpleroisse
ukos
Messages postés
56
Date d'inscription
lundi 22 novembre 2004
Statut
Membre
Dernière intervention
27 mai 2008
3 juin 2005 à 12:21
3 juin 2005 à 12:21
merci mais j ai trouver un autre de tes solution et j'adopte !
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = ActiveSheet.ChartObjects(1).Chart
Fname = ThisWorkbook.Path & Application.PathSeparator &
"temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="gif"
Image1.Picture = LoadPicture(Fname)
Kill
ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
Franchement jpleroisse t es tron bon !
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = ActiveSheet.ChartObjects(1).Chart
Fname = ThisWorkbook.Path & Application.PathSeparator &
"temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="gif"
Image1.Picture = LoadPicture(Fname)
Kill
ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
Franchement jpleroisse t es tron bon !
Utilisateur anonyme
10 déc. 2012 à 17:31
10 déc. 2012 à 17:31
Ça dépend du devin en fonction et de sa boule de cristal. Pour autant que je constate, une question de base de donnée, dans un vieux sujet de 2005 qui porte sur les graphiques, et qui n'explique en rien de quoi il est question a peu de chance de soulever l'enthousiasme.
Base de données avec quel programme ?
Base de données pour faire quoi ?
etc...
Base de données avec quel programme ?
Base de données pour faire quoi ?
etc...
