Creer une serie ss Excell
Thorliaf
Messages postés
24
Statut
Membre
-
Thorliaf Messages postés 24 Statut Membre -
Thorliaf Messages postés 24 Statut Membre -
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
-
Bonjour,
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 -
Dé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 ...