[VBA] Graph Excel avec données en X et Y
Bonjour,
Depuis ce matin j'essaie de faire une macro me permettant de tracer un graph avec des données en X et en Y en fonction du nombre de valeurs contenu ds la feuille. J'ai utilisé l'enregistreur de macro pour voir comment cela fonctionnait (je découvre vba depuis ce matin je précise) mais impossible à arriver à automatiser cette tache.
Voici mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/04/2008 par thierry
'
'
Dim feuille
Set feuille = Sheets(1)
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=feuille.Range("E4:E4732") _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=" & feuille & "!R4C1:R4732C1"
ActiveChart.SeriesCollection(1).Name = "=""toto"""
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "toto"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub |
Cela plante à la ligne rouge (propriété ou methode non géré par cet objet). Si je remplace & feuille & par le vrai nom de la feuille cela fonctionne:
Code:
ActiveChart.SeriesCollection(1).XValues = "='6-Acquisition-130500.acq'!R4C1:R4732C1"
Dans la variable "feuille" je récupère bien le nom de la feuille puisque la ligne de code précédent l'erreur ne plante pas ???? Le graph se trace mais plante au moment d'attribuer les données en X.
Au moment ou il crée le graph, ma variable feuille ne fait peut etre plus appelle à la feuille originale mais a la feuille graphique nouvellement crée? Comment récupérer le nom de la premiere feuille alors (cette derniere a un nom variable et n'est pas de type feuill1)
Merci d'avance,
Thierry