Discussion :

[diamont]

Bonjour
je fais programme pour qui à partir de feuille 3 fais la representation graphique sur la feuille 1 dont voici le programme:

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
' Code pour gerer le graphe des cours boursières
Sub graphique()
 
 
Dim graph1 As Charts
 
 Range("b", "b").Select
    'Range("B2", Range("B1").End(xlDown).Value).Select
 
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Feuil1").Select
    ActiveSheet.ChartObjects("graph1").Activate
    ActiveWindow.Visible = False
    Selection.Delete
    Charts.Add
    ActiveChart.ChartType = xl3DLine
 
    ActiveChart.SetSourceData Source:=Worksheets("Feuil3").Range(“B2”, Worksheets("feuil3").Range("B2").End(xlDown)), PlotBy _
        :=xlColumns
ActiveChart.SeriesCollection(1).XValues = Worksheets("Feuil3").Range("A2", Worksheets("feuil3").Range("a2").End(xlDown))
 
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Cours du jour"
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Characters.Text = "cours"
    End With
 
End Sub
 
' Code pour gérer le graphe des voulumes boursiers échangés
Sub graphique1()
 
Dim graphVolum As Charts
 
   'Range("C2", Range("C1").End(xlDown).Value).Select
     Range("c", "c").Select
 
    Sheets("Feuil1").Select
    ActiveSheet.ChartObjects("graphVolum").Activate
    ActiveWindow.Visible = False
    Selection.Delete
    Charts.Add
    ActiveChart.ChartType = xl3DLine
    ActiveChart.SetSourceData Source:=Worksheets("Feuil3").Range("C2", Worksheets("feuil3").Range("C2").End(xlDown)), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = Worksheets("Feuil3").Range("A2", Worksheets("feuil3").Range("a2").End(xlDown))
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Volumes échangés"
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Characters.Text = "Quantités"
    End With
End Sub

Mon souci c'est de ne pas avoir la date de début d'ouverture de la bourse à l'heure d'exécution sur l'axe des abscisse, il me le fait à l'envers (14h 13h 12h......9h au lieu d' avoir 9h 10h 11h ....14h)quelqu'un pourrait t-il m'aider s'il vous plait. Merci d'avance.

[mercatog]

Insomnie oblige, et sans connaitre les valeurs de tes données, j'ai testé ton code (en le nettoyant au passage), l'axes reflète le même tri que ta colonne A

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
Public Sub Graphique()
Dim plageB As Range, plageA As Range
Dim LastLig As Integer, i As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil3")
   LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
   Set plageA = .Range("A2:A" & LastLig)
   Set plageB = .Range("B2:B" & LastLig)
End With
plageB.Replace ".", ",", xlPart
 
'supprime tous les graphiques de Feuil1
With Sheets("Feuil1").Shapes
   If .Count > 0 Then
      For i = .Count To 1 Step -1
         If .Item(i).Type = 3 Then .Item(i).Delete
      Next i
   End If
End With
 
Charts.Add.Name = "GRAPHE1"
With ActiveChart
   .ChartType = xl3DLine
   .SetSourceData Source:=plageB, PlotBy:=xlColumns
   .SeriesCollection(1).XValues = plageA
   .Location Where:=xlLocationAsObject, Name:="Feuil1"
End With
'------------------------Fermer le With Activechart et réouvrir un nouveau (déplacement vers feuil1)
With ActiveChart
   .HasTitle = True
   .ChartTitle.Text = "Cours du jour"
   .ChartTitle.Font.ColorIndex = 11
   .Axes(xlValue).HasTitle = True
   .Axes(xlValue).AxisTitle.Top = 20
   .Axes(xlValue).AxisTitle.Text = "Cours"
   .HasLegend = False
   .Deselect
End With
Set plageA = Nothing
Set plageB = Nothing
End Sub