Tracer des graphes
reda18
-
reda18 -
reda18 -
Bonjour,
J'ai un soucis les amis,
j'ai réussi à enregistrer une macro pour tracer un graphe et ca a marché, du coup j'ai pris son code et je l'ai copié et collé dans le code de ma feuille 1 pour pouvoir le mettre en boucle pour que ca me génère plusieurs graphes ... Sauf que ca n'a pas marché meme si je le met sans boucle pour qu'il s'execute qu'une seule fois au sein d'un autre macro et je comprends pas pourquoi !
le code est le suivant :
Worksheets("Feuil2").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil2'!$C$2:$C$27")
ActiveChart.ChartType = xlLineStacked
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$A$2:$A$27"
ActiveChart.SeriesCollection(1).Name = "=""mongraphe"""
J'ai un soucis les amis,
j'ai réussi à enregistrer une macro pour tracer un graphe et ca a marché, du coup j'ai pris son code et je l'ai copié et collé dans le code de ma feuille 1 pour pouvoir le mettre en boucle pour que ca me génère plusieurs graphes ... Sauf que ca n'a pas marché meme si je le met sans boucle pour qu'il s'execute qu'une seule fois au sein d'un autre macro et je comprends pas pourquoi !
le code est le suivant :
Worksheets("Feuil2").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil2'!$C$2:$C$27")
ActiveChart.ChartType = xlLineStacked
ActiveChart.SeriesCollection(1).XValues = "='Feuil2'!$A$2:$A$27"
ActiveChart.SeriesCollection(1).Name = "=""mongraphe"""
