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