[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