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.