rajouter un graphique à la fin des onglets

battit64

XLDnaute Nouveau
Voici mon code qui me fais des graphiques en automatique.
J'aimerais que ce graphes ce rajoute à la fin des onglets, j'ai trouvé une fonction du style Worksheets.Add After:=Sheets(Sheets.Count) qui fonctionne pour un nouveau worksheet mais comment faire pour le rajouter à mmon code ci dessous
merci

Worksheets(titre).Select
Set nom = Charts.Add



nom.Name = "Graph" & " " & titre & " " & Sheets(titre).Range(col & "6").Value


nom.ChartType = xlPie
nom.SeriesCollection(1).XValues = Sheets(titre).Range("A" & dbl & ":A" & fdl)
nom.SeriesCollection(1).Values = Sheets(titre).Range(col & dbl & ":" & col & fdl)
nom.SeriesCollection(1).Name = "Graphique Totaux et Pourcentage Diffusion Payée par Zone pour le mois de " & Sheets(titre).Range(col & "6").Value
nom.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel, AutoText:=True, LegendKey:=True, ShowPercentage:=True, ShowValue:=True
nom.Location Where:=xlLocationAsNewSheet
End Sub
 

Discussions similaires