Discussion :

[Currahee]

RESOLU

Bonjour,

Je suis en train de travailler sur un programme dans lequel j'ai une boucle qui m'ecrit des séries de 100 chiffres dans une feuille excel.

Au premier tour de ma boucle, mes chiffres sont inscrits dans la première colonne de ma feuille (colonne A), au second tour de boucle mes nouveaux chiffres sont inscrits dans la colonne suivante (colonne B), etc...

Je veux, et c'est là mon problème, incorporer dans la boucle une création de graphique associée à chaque série de données:

ActiveChart.SetSourceData Source:=Sheets("Capital").Range("A1:A100"), PlotBy _
:=xlColumns

Mon PROBLEME: comment changer la source de données du graphique -> avoir un range dynamique qui au premier tour de boucle sera la première colonne, au second la deuxieme colonne etc..

J'ai essayé de remplacer la ligne de code précédente par:

ActiveChart.SetSourceData Source:=Sheets("Capital").Range(Cells(1,i),Cells(100,i)), PlotBy _
:=xlColumns

i étant mon compteur de colonne

Mais ça ne fonctionne pas... :-(

Merci d'avance pour vos réponses,


PS: J'ai essayé ça aussi:

Dim Donnees As Range
Donnees = Range(Cells(1, i), Cells(100, i))
-> Ca plante ici aussi... :-(

ActiveChart.SetSourceData Source:=Sheets("Capital").Range(Donnees), PlotBy _ :=xlColumns

[Currahee]

J'ai finalement trouvé la solution...

Je me doutais bien que c'était simple, et j'ai cherché un moment sur le net avant de poster ici (pendant tout France-Chine d'hier soir, et 1h00 ce matin), mais j'avais toujours une erreur quelle que soit la solution essayée...

Je pense au vu de la soluce trouvée qu'il va falloir que je me familiarise avec la commande set que j'avais négligé jusque-là...

SOLUTION:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Donnees As Range
    
Set Donnees = Worksheets("Capital").Range(Worksheets("Capital").Cells(1, i), Worksheets("Capital").Cells(100, i))

Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Donnees, PlotBy _
        :=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Equipe(i)