tracé graphique avec données extensibles ...

[seb]

slt le forum,

Je souhaite tracer plusieurs graphes sur plusieurs pages.
Les donnees à tracer sont toutes situées dans une meme feuille.
En fait chaque graphe correspond à une colonne de la feuille.

Mon probleme:
le nombre de colonne n'étant pas fixe, je le connais seulement par une variable (ici 'decal') je veux donc faire un FOR mais mon decalage pour le tracé ne fonctionne pas. quelqu'un peut me dire comment il faut faire ?
voici une partie de mon code:

For i = 1 To (decal + 1)

Charts.Add
ActiveChart.ChartType = xlLine

'#### le probleme est ici !!!!!
ActiveChart.SetSourceData Source:=Sheets(nom_fichier).Column(i).EntireColumn.Select, PlotBy:= xlColumns

.....

Next i


je pensais autrement incrémenter mon ActiveCell mais ca ne marche pas mieux....
je sais qu'à la place de 'Column(i).EntireColumn.Select', il faudrait, par exemple, pour la premiere colonne : Range("A:A")
comment faire incrementer ceci ?? ou alors le remplacer comme une variable que j'incrémenterais.....

merci d'avanec de vos réponses.

PS: @+thierry et C@thy: cette fois j'ai bien fait toutes mes declarations et j'ai placer 'option explicit' en tête de chaque feuille
et en plus j'ai fini ma punition de 100 lignes....
lol

 

[seb]

re-slt,
c'est bon j'ai trouvé.........
j'aurais du mieux chercher.......

voici la solution :

For i = 1 To (decal + 1)

Charts.Add
ActiveChart.ChartType = xlLine

'#### la solution
ActiveChart.SetSourceData Source:=Sheets(nom_fichier).Columns(i):= xlColumns
...
Next i

désolé.........


j'aurais du faire attention... comme il y a plusieurs colonnes, il faut mettre un S à 'columns'......

lol lol lol

@+

 

[Rhodan]

Salut, ma solution pour faire un graph "extensible"...et sans macro est de définir un nom de plage incluant la fonction décaler...


insertion / Nom / :
créer un nom du genre mesdonnées = decaler($A$2;B1;B2;...ect)

puis dans le graph au niveau des données, la plage de cellule prends le nom de ='nomdelafeuille'!mesdonnées

et voila un graph dynamique.