Discussion :

[thierry-69007]

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 :

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

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

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

[fring]

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 :

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
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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Ok, essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thierry-69007]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cb_60]

Bonsoir
regarde si cela peut te faire avancer?

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
 
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

[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