balooow
Nouveau membre
Bonjour à tous !
Mon problème ne me semble pas compliqué mais je suis novice en VB et je n'arrive pas à m'en sortir, même après moulte recherche...
Je désire créer un graphique (type nuage de points) à partir d'une série de données contenu dans un tableau de taille variable
je voudrais que le graphique soit contenu dans la feuille active et placé à une position donné , qu'il porte un nom (pour pouvoir l'effacer à l'aide d'une autre fonction)ainsi qu'un titre en X et en Y .
J'ai enregistré une macro, mais elle nomme automatiquement le tableau à chaque fois que je l'appel. Mon tableau n'a donc pas de nom précis graph1, puis 2.... il n'a donc pas d'attribut spécifique pour le supprimer.
De plus lorsque j'exécute cette macro je sélectionne la totalité de la colonne où sont contenu mes valeurs... ce n'est pas vraiment variable
[cpp] Columns("T:T").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Feuil1!$T:$T")
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Y"
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Name = "=""titre"""
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SeriesCollection(1).Select
Selection.MarkerStyle = -4142
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 20").Activate[/cpp]
si quelqu'un pourrait me venir en aide, en me donnant les noms des fonctions et la synthaxe
pour nommer un graphique, le positionner, nommer ses axes ce serait déjà formidable
cordialement
Mon problème ne me semble pas compliqué mais je suis novice en VB et je n'arrive pas à m'en sortir, même après moulte recherche...
Je désire créer un graphique (type nuage de points) à partir d'une série de données contenu dans un tableau de taille variable
je voudrais que le graphique soit contenu dans la feuille active et placé à une position donné , qu'il porte un nom (pour pouvoir l'effacer à l'aide d'une autre fonction)ainsi qu'un titre en X et en Y .
J'ai enregistré une macro, mais elle nomme automatiquement le tableau à chaque fois que je l'appel. Mon tableau n'a donc pas de nom précis graph1, puis 2.... il n'a donc pas d'attribut spécifique pour le supprimer.
De plus lorsque j'exécute cette macro je sélectionne la totalité de la colonne où sont contenu mes valeurs... ce n'est pas vraiment variable
[cpp] Columns("T:T").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Feuil1!$T:$T")
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Y"
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(1).Name = "=""titre"""
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.SeriesCollection(1).Select
Selection.MarkerStyle = -4142
ActiveSheet.ChartObjects("Graphique 20").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 20").Activate[/cpp]
si quelqu'un pourrait me venir en aide, en me donnant les noms des fonctions et la synthaxe
pour nommer un graphique, le positionner, nommer ses axes ce serait déjà formidable
cordialement