Sub Bouton12_Clic()
'ne pas oublier d'ajouter la référence Microsoft Excel 8.0 Object Library au projet, sinon impossible de créer l'application Excell
Dim ch As ChartObject
'ch va recevoir le graphique
Set ch = ActiveSheet.ChartObjects.Add(650, 500, 300, 200) ' le graphique sera tracé dans la prémière feuille du classeur
'trace le graphe een prenant les données de la cellule F30 à la cellule G30
'ch.Chart.SetSourceData Source:=Worksheets(1).Range("F30:G30"), PlotBy:=xlColumns
'Nom du Graphique
ch.Name = "????"
With ch.Chart
.SetSourceData Source:=Worksheets(1).Range("I15:J15"), PlotBy:=xlColumns
.Location xlLocationAsObject, ActiveSheet.Name
.ChartType = xlColumnClustered 'le type de graphique
.HasTitle = True 'pour inclure un titre
.ChartTitle.Characters.Text = "Dépense et Revenu" 'met un titre
.SeriesCollection(1).Points(1).Interior.ColorIndex = 11 'Couleur de la série 1
.SeriesCollection(2).Points(1).Interior.ColorIndex = 12 'Couleur de la série 2
' 0 - rien, 1 - noir, 2 - Blanc, 3 - Rouge vif, 4 - vert vif, 5 - Bleu, 6 - Jaune, 7 - Violet/Rose, 8 - Cyan,
'9 - Marron, 10 - vert foncé, 11 - bleu foncé, 12 - kaki, 13 - violet, 14 - vert/bleu, 15 - gris, 16 - gris foncé, 17 - bleu/violet clair, 18 - violet/rose, 19 - beige
' 20 - bleu très clair, 21 - violet foncé, 22 - Rose foncé, 23 - bleu, 24 - gris, 25 - bleu foncé, 26 - Rose, 27 - Jaune, 28 - bleu clair
.SeriesCollection(1).Name = "????" 'met un nom dans la légende pour la collection 1
.SeriesCollection(2).Name = "????" 'met un nom dans la légende pour la collection 2
End With
End Sub