Graphique sous VBA

**bsangoku** · 01/02/2013, 16h41

Bonjour,

Je suis débutant sous VBA et je souhaite faire des graphiques.
J'ai déniché un code sur le net mais en le compilant ça me fait des messages d'erreurs (c'est l'instruction
ActiveChart.Location Where:=xlLocationAsObject, Name:=wsm)

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
Sub CreerUnGrapheSurFeuilleExistante(wsm As Worksheet)
  Charts.Add
  ActiveChart.ChartType = xlColumnClustered
  ActiveChart.SetSourceData Source:=wsm.Range("C8:F14"), PlotBy:=xlColumns
  ActiveChart.Location Where:=xlLocationAsObject, Name:=wsm
  With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Au revoir"
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
  End With
 
  'wsm.ChartObjects(1).Name = "Hello2"
 
End Sub

Aussi pouvez vous m'expliquer comment importer des données présent dans un vecteur pour faire nos graphique?

Merci d'avance

**Kimy_Ire** · 01/02/2013, 17h03

Je te propose ce petit bout de code fait main mais qui fonctionne très bien.
Il créé un graphe avec, sur X, ce qui se trouve en A1:A10.
A toi de l'adapter !

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub CreateGraph()
 
With Worksheets("Feuil1")
    'Delete all the graphs which are already on the worksheet
    If .ChartObjects.Count <> 0 Then .ChartObjects.Delete
 
    'Add a graph
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
 
    'Delete all series when excel fills the graph automatically
    With ActiveChart
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
    End With
 
    'Set the position of the graphe (here: on the range A1:P25)
    With .ChartObjects(1)
        .Left = Range("A1:P25").Left
        .Top = Range("A1:P25").Top
        .Width = Range("A1:P25").Width
        .Height = Range("A1:P25").Height
    End With
 
    'In the graph we are creating...
    With ActiveChart
        'Set the title
        .HasTitle = True
        With .ChartTitle
            .Characters.Text = "My title"
            .Border.Weight = xlHairline
            .Font.Size = 20
        End With
 
        'Set the Y axis title
        With .Axes(xlValue)
            .HasTitle = True
            With .AxisTitle
                .Caption = "Y axis"
                .Font.Size = 13
                .Font.Bold = True
            End With
        End With
 
        'Set the X axis title
        With .Axes(xlCategory)
            .HasTitle = True
            With .AxisTitle
                .Caption = "X axis"
                .Font.Size = 13
                .Font.Bold = True
            End With
        End With
 
''***************************************************************************************************************************
''I- Soit on ajoute les courbes les unes après les autres avec des "NewSeries" :
'        'Add a SerieCollection
'        .SeriesCollection.NewSeries
'        With .SeriesCollection(.SeriesCollection.Count)
'            .Name = "My name"
'            .ChartType = xlLine
'            .Values = Worksheets("Feuil1").Range("A1:A10") 'Your Y values
'            .XValues = Worksheets("Feuil1").Range("B1:B10") 'Your X values
'            .Border.Weight = xlThick
'            .Border.Color = RGB(0, 0, 255)
'        End With
'***************************************************************************************************************************
 
'***************************************************************************************************************************
'II- On peut également directement placer une range à tracer :
        .SetSourceData Source:=Worksheets("Feuil1").Range("A1:A10"), PlotBy:=xlColumns
    End With
 
End With
 
End Sub

Dis-moi si tu veux d'avantage d'explications !

**bsangoku** · 01/02/2013, 18h48

Tout d'abord merci!!!

Par contre, pouvez vous m'expliquer comment changer ce graphique (qui est en histogramme) en graphique en ligne (c'est à dire en ligne)

De plus, je souhaite savoir s'il est possible de demander à l'utilisateur les plages il a envie de tracer ses courbes.

Encore Merci!!!

**Kimy_Ire** · 04/02/2013, 15h01

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Sub CreateGraph()
Dim choice_deb As String
Dim choice_fin As String
 
With Worksheets("Feuil1")
    choice_deb = InputBox("Cellule de départ ?", "Plage de cellules", "A1")
    choice_fin = InputBox("Cellule de fin ?", "Plage de cellules", choice_deb)
 
    'Delete all the graphs which are already on the worksheet
    If .ChartObjects.Count <> 0 Then .ChartObjects.Delete
 
    'Add a graph
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
 
    'Delete all series when excel fills the graph automatically
    With ActiveChart
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
    End With
 
    'Set the position of the graphe (here: on the range A1:P25)
    With .ChartObjects(1)
        .Left = Range("A1:P25").Left
        .Top = Range("A1:P25").Top
        .Width = Range("A1:P25").Width
        .Height = Range("A1:P25").Height
    End With
 
    'In the graph we are creating...
    With ActiveChart
        'Set the title
        .HasTitle = True
        With .ChartTitle
            .Characters.Text = "My title"
            .Border.Weight = xlHairline
            .Font.Size = 20
        End With
 
        'Set the Y axis title
        With .Axes(xlValue)
            .HasTitle = True
            With .AxisTitle
                .Caption = "Y axis"
                .Font.Size = 13
                .Font.Bold = True
            End With
        End With
 
        'Set the X axis title
        With .Axes(xlCategory)
            .HasTitle = True
            With .AxisTitle
                .Caption = "X axis"
                .Font.Size = 13
                .Font.Bold = True
            End With
        End With
 
''***************************************************************************************************************************
'''I- Soit on ajoute les courbes les unes après les autres avec des "NewSeries" :
'        'Add a SerieCollection
'        .SeriesCollection.NewSeries
'        With .SeriesCollection(.SeriesCollection.Count)
'            .Name = "My name"
'            .ChartType = xlLine
'            .Values = Worksheets("Feuil1").Range(choice_deb & ":" & choice_fin) 'Your Y values
'        'Met la plage que tu souhaites sur X
'            '.XValues = Worksheets("Feuil1").Range("B1:B10") 'Your X values
'            .Border.Weight = xlThick
'            .Border.Color = RGB(0, 0, 255)
'        End With
'***************************************************************************************************************************
 
'II- On peut également directement placer une range à tracer :
        .SetSourceData Source:=Worksheets("Feuil1").Range(choice_deb & ":" & choice_fin), PlotBy:=xlColumns
 
        With ActiveChart
            For i = 1 To .SeriesCollection.Count
                .SeriesCollection(i).ChartType = xlLine
            Next i
        End With
 
    End With
 
End With
 
End Sub

Dis moi si cela te convient !

**bsangoku** · 05/02/2013, 12h00

Merci Kimi Ire.

Oui j'ai encore quelques modifications à apporter dans le code
=> j'ai envie que l'utilisateur donne via un inputbox la plage où les données sont présentes .
=> de plus j'ai envie de réaliser deux graphiques (l'un pour des données A, l'autre pour des données B) sur la même page que celle où est présente les données.

Enfin : à quoi sert l'instruction suivante :

Code :

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

ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

Merci d'avance

**Kimy_Ire** · 05/02/2013, 12h37

=> j'ai envie que l'utilisateur donne via un inputbox la plage où les données sont présentes .

Le code que je t'ai donné permet à l'utilisateur de sélectionner des données, non ? Cela ne te convient pas ?

=> de plus j'ai envie de réaliser deux graphiques (l'un pour des données A, l'autre pour des données B) sur la même page que celle où est présente les données.

Je ne comprends pas bien. Tu veux tracer deux graphes ? Un avec les données de la colonne A et l'autre de la colonne B, c'est ça ?

Code :

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

ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

Enfin, ceci sert à placer le graphe sur une feuille (ici la feuille "Feuil1") et non pas créer un graphe dans un nouvel onglet.

Graphique sous VBA

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager