[Excel][VBA] Réalisation de graphiques avec séries
Réalisation de graphiques avec séries [Excel][VBA] - VB/VBA/VBS - Programmation
MarshPosté le 13-08-2004 à 15:08:09
Bonjour, je travaille actuellement à réaliser une macro excel qui a partir de 3 fichiers ouvert va chercher des informations et créé un tableau dans un 4ème fichier. A partir de celui-ci je veux réaliser 2 graphiques en partant des données de mon tableau.
Le problème est que je n'arrive pas à faire le graphique. En fait j'ai pour le moment ceci comme code :
Set objRange = feuilActive.Range("A3", "C11" ) Set objChart = ThisWorkbook.Charts.Add objChart.ChartType = xlXYScatter
Ensuite je dois pouvoir réaliser une série pour chacune de mes lignes, mais le problème est que je n'y arrive pas... Au final je tente de créer les séries une par une pour voir si, au moins ça, ça marche avec une ligne du type : objChart.SeriesCollection.Add Source:=feuilActive.Range("A3", "C3" )
Mais je n'arrive même pas à obtenir le même résultat que sur ma feuille de test avec l'assistant graphique. La source des points que je devrais avoir est de ce type : =SERIE(Feuil1!$A$3;Feuil1!$B$3;Feuil1!$C$3;1), en remplaçant les 3 par 4,5... ...11, on obtient tous mes points.
Mais avec ma formule j'obtiens : =SERIE(Feuil1!$A$3;;Feuil1!$B$3:$C$3;1), ce qui n'est pas la même chose du tout.
Pouvez-vous m'aider à automatiser la création de mes séries et m'aider à obtenir les bons points ?
Merci d'avance
--------------- «La vie est un bien perdu pour celui qui ne l'a pas vécu comme il l'aurait voulu.» Mihail Eminescu
Marsh Posté le 13-08-2004 à 15:08:09
Bonjour,
je travaille actuellement à réaliser une macro excel qui a partir de 3 fichiers ouvert va chercher des informations et créé un tableau dans un 4ème fichier. A partir de celui-ci je veux réaliser 2 graphiques en partant des données de mon tableau.
Le problème est que je n'arrive pas à faire le graphique.
En fait j'ai pour le moment ceci comme code :
Set objRange = feuilActive.Range("A3", "C11" )
Set objChart = ThisWorkbook.Charts.Add
objChart.ChartType = xlXYScatter
Ensuite je dois pouvoir réaliser une série pour chacune de mes lignes, mais le problème est que je n'y arrive pas... Au final je tente de créer les séries une par une pour voir si, au moins ça, ça marche avec une ligne du type :
objChart.SeriesCollection.Add Source:=feuilActive.Range("A3", "C3" )
Mais je n'arrive même pas à obtenir le même résultat que sur ma feuille de test avec l'assistant graphique.
La source des points que je devrais avoir est de ce type :
=SERIE(Feuil1!$A$3;Feuil1!$B$3;Feuil1!$C$3;1), en remplaçant les 3 par 4,5... ...11, on obtient tous mes points.
Mais avec ma formule j'obtiens : =SERIE(Feuil1!$A$3;;Feuil1!$B$3:$C$3;1), ce qui n'est pas la même chose du tout.
Pouvez-vous m'aider à automatiser la création de mes séries et m'aider à obtenir les bons points ?
Merci d'avance
---------------
«La vie est un bien perdu pour celui qui ne l'a pas vécu comme il l'aurait voulu.» Mihail Eminescu