coulraoul
Nouveau membre
Bonjour à tous
Je suis débutant en macro excel, et je désirerai créer une macro afin d'ajouter des séries graphiques rapidement, puisque je dois créer plusieurs centaines de graphiques.
Les données que je souhaite sélectionner sont en colonne :
[cpp] 9/03/1997 18/12/1996
Profondeur (m) Conductivité Profondeur (m) Conductivité
74,5 1690 74,5 1645
75 1691 75 1627
76 1692 76 1658 [/cpp]
Je voudrai donc créer une "boucle for" qui me sélectionnerait pour chaque série graphique, la date en tant que nom de série, la profondeur en ordonnée et la conductivité en abscisse.
Voici ce que j'obtiens pour l'ajout d'une série avec l'enregistreur de macro:
[cpp]Sub GRAPH()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Feuil1'!$D$1"
ActiveChart.SeriesCollection(2).XValues = "='Feuil1'!$E$2:$E$8"
ActiveChart.SeriesCollection(2).Values = "='Feuil1'!$D$2:$D$8"
End Sub[/cpp]
Je ne sais pas comment m'y prendre pour ajouter une boucle afin de décaler la sélection des données de deux colonnes à chaque fois.
Je ne connais pas du tout la syntaxe et je ne sais pas si c'est possible ni comment m'y prendre, j'espère que ma question est claire, et que vous pourrez m'aider.
Merci d'avance
Je suis débutant en macro excel, et je désirerai créer une macro afin d'ajouter des séries graphiques rapidement, puisque je dois créer plusieurs centaines de graphiques.
Les données que je souhaite sélectionner sont en colonne :
[cpp] 9/03/1997 18/12/1996
Profondeur (m) Conductivité Profondeur (m) Conductivité
74,5 1690 74,5 1645
75 1691 75 1627
76 1692 76 1658 [/cpp]
Je voudrai donc créer une "boucle for" qui me sélectionnerait pour chaque série graphique, la date en tant que nom de série, la profondeur en ordonnée et la conductivité en abscisse.
Voici ce que j'obtiens pour l'ajout d'une série avec l'enregistreur de macro:
[cpp]Sub GRAPH()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Feuil1'!$D$1"
ActiveChart.SeriesCollection(2).XValues = "='Feuil1'!$E$2:$E$8"
ActiveChart.SeriesCollection(2).Values = "='Feuil1'!$D$2:$D$8"
End Sub[/cpp]
Je ne sais pas comment m'y prendre pour ajouter une boucle afin de décaler la sélection des données de deux colonnes à chaque fois.
Je ne connais pas du tout la syntaxe et je ne sais pas si c'est possible ni comment m'y prendre, j'espère que ma question est claire, et que vous pourrez m'aider.
Merci d'avance