excel 2010 : VBA : graphiques se superposent

Version imprimable

[I]Bonjour,

J'aimerais à partir d'un tableau de valeurs, créer plusieurs graphiques sur une même feuille Excel.

En cliquant sur un bouton de controle pour chaque graphique (bouton1--> graph1 ; bouton2-->Graph2....)
les boutons étant au dessus de chaque graphique.

Le problème que j'ai c'est que je n'arrive pas à nommer un graphique, je n'ai pas trouver sur VBA.

mon code est le suivant : pour un 1er bouton
Code:

1 2 3 Set graph = Worksheets("Saisie").Chartobje cts.Add(50, 420, 350, 210) 'gauche, haut, largeur du graph, hauteur graph.Chart.ChartWizard Source:=Worksheets("Saisie").R ange("B12:B15,D12:K15"), _ Title:="Tri2", PlotBy:=xlColumns 'PlotBy colonne permet d'avoir les jours sur le graph
pour un 2ème bouton : idem
Code:

1 2 3 Set graph = Worksheets("Saisie").Chartobje cts.Add(450, 420, 350, 210) ' gauche, haut, largeur du graph, hauteur graph.Chart.ChartWizard Source:=Worksheets("Saisie").R ange("B12,D12:K12,B16:B18,D16: K18"), _ Title:="Tri3", PlotBy:=xlColumns 'PlotBy colonne permet d'avoir les jours sur le graph
Ce code marche mais les graphiques se superposent qd je clique une 2ème fois sur le bouton

j'avais tenté ce code ci dessous:
Code:

1 2 3 4 5 For Each graph In Sheets("Saisie").Chartobjects graph.delete Next
mais il efface les autres graphiques aussi....

En espérant avoir été assez clair , pouvez vous m'aider?

Marc

Bojour,

donnes lui un nom

Code:

1
2
3
4
5
6
7
8
9
Sub Macro1()
For Each graph In Sheets("Saisie").ChartObjects
 If graph.Name = "toto" Then graph.Delete: Exit For
Next
Set graph = Worksheets("Saisie").ChartObjects.Add(450, 420, 350, 210) ' gauche, haut, largeur du graph, hauteur
graph.Chart.ChartWizard Source:=Worksheets("Saisie").Range("B12,D12:K12,B16:B18,D16: K18"), _
Title:="Tri3", PlotBy:=xlColumns 'PlotBy colonne permet d'avoir les jours sur le graph
graph.Name = "toto"
End Sub

28/08/2014, 11h56
markym

super merci beaucoup!

je me permet de te proposer cet solution qui vas créer tous tes graphs!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
CreerGraph Sheets("Saisie"), "toto", "B12,D12:K12,B16:B18,D16: K18", 450, 420, 350, 210, "Tri3"
End Sub
 
Sub CreerGraph(Ws As Worksheet, Nom As String, plage As String, Gauche As Long, Haut As Long, Larguer As Long, Hauteur As Long, Tire As String)
For Each graph In Ws.ChartObjects
 If graph.Name = Nom Then graph.Delete: Exit For
Next
Set graph = Worksheets("Saisie").ChartObjects.Add(Gauche, Haut, Larguer, Hauteur)   ' gauche, haut, largeur du graph, hauteur
graph.Chart.ChartWizard source:=Ws.Range(plage), _
Title:=Tire, PlotBy:=xlColumns 'PlotBy colonne permet d'avoir les jours sur le graph
graph.Name = Nom
End Sub