Bonjour à tous,
Malgré de nombreuses recherches sur internet, je ne trouve pas de solutions à mon problème :
sur une feuille j'ai 100 graphiques réparti sur 6 colonnes. Dans une autre feuille, j'ai 1 tableau de donnée qui doit me servir pour rajouter une série sur tous les graphiques d'une colonne (colonne T). J'ai réalisé ce code :
Code :
- Sub SoftmaMacro()
- Dim ws As Excel.Worksheet
- Dim wk As Excel.Worksheet
- Dim cht As Chart
- Dim cho As ChartObject
- Set ws = Sheets("2 Database" )
- Set wk = Sheets("1 Input" )
- For Each cho In ws.ChartObjects
- cho.Activate
- With ActiveChart
- .SeriesCollection.NewSeries 'Ajoute une série
- With .SeriesCollection(.SeriesCollection.Count)
- .Name = c 'Nom de la série
- .XValues = "='1 Input'!$A$6:$A$710"
- .Values = "='1 Input'!$B$6:$B$710"
- End With
- End With
- Next
- End Sub
|
J'active tous les graphiques de la page, donc la nouvelle courbe apparaitra dans tous les graphiques. Ce que je voudrai c'est Activer une seule colonne, mais pas moyen d'y arriver (quand je définis mon for each cho, je n'arrive pas a faire pointer sur une seule colonne en particulier; j'ai essayé quelques boucles ça n'a jamais fonctionné). Est ce que vous auriez des idées ?
Merci d'avance pour votre aide
FORUM HardWare.fr
