Discussion :

[girardeau]

Bonjour
j'ai lu sur le forum un post en réponses à un problème pour inserer un graphique dans un formulaire. sous VBA Excel
Malgré mes recherches je suis incapable de le retrouver

Merci pour votre aide
Lauren Girardeau

[leroissejp]

Bonjour,
Place un commandButton et un contrôle MSChart sur ton UserForm, dans la feuille1, de A1 à A6 par exemple place, Jan, Fév, Mars, etc.... et de B1 à B6 250, 450, etc...

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
 
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