Aide Macro ajout de séries de données pour graphique

  • Initiateur de la discussion Initiateur de la discussion A1B2C3
  • 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 !

A1B2C3

XLDnaute Junior
Bonjour,

J'ai élaboré une petite macro afin de créer un graphique pour une série de données. Je voudrais désormais que la macro permette une boucle afin de chercher les autres séries de données jusqu'à la dernière colonne remplie.
-Le nom de la série en F1 doit se décaler pour chaque nouvelle série (E1,F1,G1...n1)
-Les valeurs en abscisse (XValues) aussi (F3:F1000 pour la 1ère série, E3:E1000 pour la deuxième...)
-L'ordonnée de change pas (B3:B1000 reste identique et commun à toutes les séries).

Pourriez-vous donc m'aider à compléter cette macro afin de réaliser ceci en déformant le moins possible ce que j'ai fait (même si ce n'est pas parfait). J'ai inclus les 'commentaires étape par étape car je débute dans les macros.

Voici la macro, merci par avance pour votre aide.

Sub Macro1()
' Macro1 Macro
'Ajouter un graphique
ActiveSheet.Shapes.AddChart.Select
'Graphique a nuage de points avec lignes
With ActiveChart
.ChartType = xlXYScatterLines
'Ajout de série
.SeriesCollection.NewSeries
'Nom de la série
.SeriesCollection(1).Name = "='Aller'!$F$1"
'Valeurs en abcisses
.SeriesCollection(1).XValues = "='Aller'!$F$3:$F$1000"
'Valeurs en ordonnées
.SeriesCollection(1).Values = "='Aller'!$B$3:$B$1000"
'Suppression de la légende
.Legend.Select
With ActiveLegend
Selection.Delete
End With
'Suppression du titre
.ChartTitle.Select
With ActiveChartTitle
Selection.Delete
End With
'Définition du style de lignes
.SeriesCollection(1).Select
With Selection
.MarkerStyle = 2
.MarkerSize = 7
End With
Selection.MarkerStyle = -4142
'Définition de la couleur de la ligne
.SeriesCollection(1).Select
Selection.Border.ColorIndex = 16
End With
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

Réponses
1
Affichages
520
Réponses
0
Affichages
459
Réponses
7
Affichages
163
Réponses
5
Affichages
477
Réponses
7
Affichages
619
Réponses
10
Affichages
1 K
Retour