RFL131
Nouveau membre
Bonjour,
J'ai eu beau chercher et avoir lu les sujets qui abordaient cette question sur le forum, je n'ai pas trouvé la réponse à mon incompétence en macro, j'ai pris soin de bien regarder l'aide VBA, mais j'avoue avoir atteint mon niveau de Peters en vba...
Bref, j'ai une liste de points que je souhaite ajouter comme droites sur un graphique existant. Chaque couple de points - stockés par ligne mais dans les mêmes colonnes - me permettent de définir une droite. J'ai plusieurs onglets, dont chacun a un nombre de lignes différent.
Voici ce que j'ai créé pour le moment avec l'enregistreur :
j'ai réussi pour le moment à faire une droite pour un couple de points bien définis de la couleur qui me va bien (tjs la même) et sans ajouter de légende, le problème est de faire de ce code une boucle (sur les lignes), j'ai essayé de récupérer le nombre de lignes pour y arriver, mais je suis un peu limité pour y arriver seul.
Je suis prêt à relancer à chaque fois la macro dans les différents onglets de mon classeur pour simplifier.
D'avance merci de votre aide.
J'ai eu beau chercher et avoir lu les sujets qui abordaient cette question sur le forum, je n'ai pas trouvé la réponse à mon incompétence en macro, j'ai pris soin de bien regarder l'aide VBA, mais j'avoue avoir atteint mon niveau de Peters en vba...
Bref, j'ai une liste de points que je souhaite ajouter comme droites sur un graphique existant. Chaque couple de points - stockés par ligne mais dans les mêmes colonnes - me permettent de définir une droite. J'ai plusieurs onglets, dont chacun a un nombre de lignes différent.
Voici ce que j'ai créé pour le moment avec l'enregistreur :
Code:
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).XValues = _
"=('S60'!R2C3,'S60'!R2C14)"
ActiveChart.SeriesCollection(6).Values = _
"=('S60'!R2C4,'S60'!R2C15)"
ActiveChart.SeriesCollection(6).Name = "='S60'!R2C1"
ActiveChart.SeriesCollection(6).Border.ColorIndex = 6
ActiveChart.SeriesCollection(6).MarkerStyle = none
ActiveChart.Legend.LegendEntries(4).Delete
j'ai réussi pour le moment à faire une droite pour un couple de points bien définis de la couleur qui me va bien (tjs la même) et sans ajouter de légende, le problème est de faire de ce code une boucle (sur les lignes), j'ai essayé de récupérer le nombre de lignes pour y arriver, mais je suis un peu limité pour y arriver seul.
Je suis prêt à relancer à chaque fois la macro dans les différents onglets de mon classeur pour simplifier.
D'avance merci de votre aide.