rajouter un graphique à la fin des onglets

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
Réponses
1
Affichages
885
W
C
Réponses
2
Affichages
1 K
STéphane
S
Retour