Bonjour j'ai besoin d'aide car je suis novice en macro VBA
je dois realiser un graphique a bulle (Chaques bulles correspond a un produit) avec en abscisse le CA et en ordonnée la marge.
On a sur une feuille excel les données suivante:
colonne A colonne B colonne C
NomProduit CA Tx de marge
j'ai lancé une macro qui me créer le graph pour la première série, j'aimerais automatiser tout cela avec une boucle mais sa ne marche pas: voici le résultat de la macro:
Sub Macro5()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("'Graphique '!$A$1:$C$9")
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Graphique '!$A$2"
ActiveChart.SeriesCollection(1).XValues = "='Graphique '!$B$2"
ActiveChart.SeriesCollection(1).Values = "='Graphique '!$C$2"
ActiveChart.ChartTitle.Select
Selection.Delete
End Sub
Si quelqu'un pouvait m'aider, cela serai vraiment sympa. Merci ! ^^