VB Excel - Graphique d'une feuille excel sur UserForm
morickno
Messages postés117Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention26 juin 2007
-
13 mai 2005 à 09:33
morickno
Messages postés117Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention26 juin 2007
-
13 mai 2005 à 11:09
j'ai un graph en histogramme sur une feuille excel, mais je voudrai le faire apparaitre sur une UserForm du meme classeur
j'ai essayé avec un espace graphique ChartSpace sur ma UserForm mais je sais pas comment le lier à mon graph de ma feuille Excel
quelqu'un peut il m'éclairer SVP
Merci
A voir également:
VB Excel - Graphique d'une feuille excel sur UserForm
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 13 mai 2005 à 10:19
Bonjour,
Tu places sur ta UserForm un contrôle Microsoft Chart control, version 6.0 (OLEDB), en cliquant avec le bouton droit sur la boîte à outils (Contrôles supplémentaires). Dans l'exemple ci-dessous j'ai repli les cellules A1:A7 avec les noms des jours de la semaine et les cellules B1:B7 avec des nombres.
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