macro qui superpose plusieurs graphs

  • Initiateur de la discussion Initiateur de la discussion micky
  • Date de début Date de début

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 !

micky

XLDnaute Nouveau
Bonjour,
j'ai enregistré une macro qui est censée générer plusieurs graphs.
lorsque je l'exécute les graphs sont créés mais ils sont tous l'un sur l'autre.
comment réussir a les décaler ?
voici le code...
HTML:
Sub graphiquecharts()
'
' graphiquecharts Macro
'

'
    Range("D1:D5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$D$1:$D$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Combined Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("E1:E5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$E$1:$E$5")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Loss Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("F1:F5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$F$1:$F$5")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Operating Expense Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("G1:G5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$G$1:$G$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.Legend.Select
    ActiveChart.SeriesCollection(1).Name = "=""Acquisition Expense Ratio"""
    Range("H1:H5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$H$1:$H$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Admin. Expense Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("A9").Select
End Sub

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

Réponses
1
Affichages
529
Réponses
0
Affichages
467
Réponses
10
Affichages
1 K
Réponses
1
Affichages
687
Réponses
5
Affichages
1 K
Retour