[VBA] Graph Excel avec données en X et Y

Version imprimable

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

Bonjour,

J'ai retrouvé un bout de code dans le fond d'un tiroir, adapte les propriétés à ta sauce et teste le

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Graph()
Application.ScreenUpdating = False
 
Charts.Add 'insertion du graphique
ActiveChart.ChartType = xlColumnClustered 'type de graphique, ici modèle classique
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:D32"), PlotBy:=xlColumns 'ce qu'on veut voir apparaître dans le graphique
ActiveChart.Location Where:=xlLocationAsNewSheet 'emplacement du graphique, dans ce cas sur une nouvelle feuille
With ActiveChart
    .HasTitle = True 'oui on veut nommer le graph.
    .ChartTitle.Characters.Text = "Test Graphique" 'nom du graph.
    .Axes(xlCategory, xlPrimary).HasTitle = True 'oui on veut nommer l'axe des absisses (X)
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dates" 'nom de l'axe X
    .Axes(xlValue, xlPrimary).HasTitle = True 'oui on veut nommer l'axe des ordonnées (Y)
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs" 'nom de l'axe Y
End With
 
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub

01/04/2008, 19h50
thierry-69007

Merci,
mais en fait je bloque au moment ou je veux rajouter les données en X. Quand j'appelle la "fonction" :

Code:

ActiveChart.SeriesCollection(1).XValues = "=" & feuille & "!R4C1:R4732C1"

Ca plante car je pense que ma variable feuille n'est pas du type qu'il attends (cf feuille = Sheets(1).

Thierry

Ok, essaye ceci

Code:

1
2
Dim feuille As String
feuille = Sheets(1).Name

re,

cela change l'erreur (Impossible de définir la propriété Xvalues de la classe séries au lieu de précedemment Prop ou méthode non gérée par cette objet.

Je recopie le code que j'ai utilisé:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub EDR()
'
' EDR Macro
' Macro enregistrée le 01/04/2008 par thierry
'
 
'
 
    Dim feuille
    Set feuille = Sheets(1)
 
    Dim feuille1 As String
    feuille1 = Sheets(1).Name
 
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=feuille.Range("A1"), _
        PlotBy:=xlRows
    ActiveChart.SeriesCollection(1).XValues = "=" & feuille1 & "!R4C1:R4732C1"
    ActiveChart.SeriesCollection(1).Values = "=" & feuille1 & "!R4C6:R4732C6"
    ActiveChart.SeriesCollection(1).Name = "=""Acc Y"""
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Acc Y"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlNone
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
End Sub

C'est toujours à cette ligne que ça plante :

Code:

ActiveChart.SeriesCollection(1).XValues = "=" & feuille1 & "!R4C1:R4732C1"

Bonsoir
regarde si cela peut te faire avancer?

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
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/04/2008 par thierry
'
 
'
Dim feuille
Dim titi
Set feuille = Sheets(1)
 
    Range("d4:e4").Select
    titi = Range(Selection, Selection.End(xlDown)).Select
    Charts.Add
    With ActiveChart
        .ChartType = xlLineMarkers
        .SeriesCollection(1).Name = "toto"
        .HasTitle = True
        .ChartTitle.Characters.Text = "toto"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
 
    End With
End Sub

01/04/2008, 21h05
fring

Ce qui pose sans doute problème également (j"y vais par suppositions parce que je ne manipule jamais les graphiques) c'est "R4C1:R4732C1"

Change ces valeurs par les adresses de cellules correspondantes
01/04/2008, 22h01
thierry-69007

:king:

Ca marche !

J'ai remplacé par ceci

Code:

ActiveChart.SeriesCollection(1).XValues = feuille.Range("A4:A4732")

Merci !