Discussion :

[markym]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

donnes lui un nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[markym]

super merci beaucoup!

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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