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:
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveChart.SeriesCollection(1).XValues = "='6-Acquisition-130500.acq'!R4C1:R4732C1"
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
Partager