Creer une serie ss Excell
Bonjour,
Quelqu'un pourrais me dire pourquoi la procédure ci-dessous ne fonctionne pas ?
C'est censé créer une nouvelle série sur la 'chart' active dont l'axe X est pris dans la plage de A2 à la fin des enregistrements, la serie créée prends ses valeurs dans la plage comprise entre B2 et la fin des enregistrements.
ActiveChart.SeriesCollection.Add Source:=ActiveWorkbook.Worksheets("Echantillons").Range("B2"), _ Rowcol:=xlColumns, SeriesLabels:=False, CategoryLabels:=False, Replace:=False
ActiveChart.SeriesCollection(1).XValues = Worksheets("Echantillons").Range("A2", Range("A2").End(xlDown))
ActiveChart.SeriesCollection(1).Values = Worksheets("Echantillons").Range("B2", Range("B2").End(xlDown).Row)
Merci de vos suggestions ...
Quelqu'un pourrais me dire pourquoi la procédure ci-dessous ne fonctionne pas ?
C'est censé créer une nouvelle série sur la 'chart' active dont l'axe X est pris dans la plage de A2 à la fin des enregistrements, la serie créée prends ses valeurs dans la plage comprise entre B2 et la fin des enregistrements.
ActiveChart.SeriesCollection.Add Source:=ActiveWorkbook.Worksheets("Echantillons").Range("B2"), _ Rowcol:=xlColumns, SeriesLabels:=False, CategoryLabels:=False, Replace:=False
ActiveChart.SeriesCollection(1).XValues = Worksheets("Echantillons").Range("A2", Range("A2").End(xlDown))
ActiveChart.SeriesCollection(1).Values = Worksheets("Echantillons").Range("B2", Range("B2").End(xlDown).Row)
Merci de vos suggestions ...
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
ContributeurBonjour,
A priori j'ai pas testé mais je crois que c'est juste le .Row de la dernière instruction qui est en trop -
Non j'ai essayé avec et sans ... meme resultat !!!???? :
"erreur 1004"
dimension specifiee non valide pour le type de graphique en cours -
ContributeurDésolé,
Je sèche, j'ai copié le code chez moi et cela fonctionne sans le .Row avec tout type de graphique ?
Mais par contre cela crée une nouvelle série de données mais ce code modifie toujours la même (la 1)
-
j ai resolu en partie le probleme avec :
Charts("Courbe complète").SeriesCollection.Add Source:=ActiveWorkbook.Worksheets("Echantillons"). _
Range("A2", Range("B2").End(xlDown))
En partie, car je ne voie pas comment je vais faire pour les autres colonnes. Par exemple comment faire si je veux faire 3 series : 1 avec la colonne A, 1 avec la colonne B, 1 avec la colonne D ...