Discussion :

[sat478]

Bonjour je cherche à automatiser la création de graphique :

je souhaite créer différents graphiques sur des onglets différents.

1er graphique :
abscisse = A
ordonnée = B

2ème graphique :
abscisse = D
ordonnée = E

...

Je souhaiterai essayer de faire quelquechose du style :

i=1
pour colonne i à la dernière colonne remplie
créer un graphique où les coordonnées sont :
abscisse : cells(5,i), (dernireligne, i)
ordonnée : cells(5,i+1), derniereligne,i+1)
fin pour

sachant qu'il est nécessaire de déterminer la dernière ligne de la colonne en partant de la cellule 65536 (au cas où il y aurait des blancs dans les valeurs)

trouver la dernière ligne remplie et la dernière colonne je sais faire

par contre je ne sais absolument pas comment créer un graphique sous excel vba... je suis perdu

si quelqu'un pouvait m'aider merci beaucoup

[leroissejp]

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 :

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