VBA Excel - Création de graphique

Bonjour,
Je ne connais pas grand chose aux graphiques, mais si tu veux créer un graphique sur un UserForm, tu places un contrôle MSChart sur le formulaire.
Ce code utilise les données des colonnes A et B.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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