Discussion :

[Hellgast]

Bonjour,
Je voudrais afficher dans mon graph
Abscisse = Tarif(colonne J) et en Ordonnée=Modèle (colonne A)
exemple :
colonne A : MSI GE60 2PE-007XFR - Sans OS
colonne J : 1049,00 € TTC

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
 
Sub AfficherGraph()
    Dim Graph As ChartObject
    Dim Fname As String
 
    sheet_name = "db_Ordinateur"
    Worksheets(sheet_name).Activate
 
   With ActiveSheet
      Set Graph = .ChartObjects.Add(200, 100, 500, 300)
   End With
 
   With Graph.Chart
      .SetSourceData Worksheets(sheet_name).Range("A1:J1")
      .HasTitle = True
      .ChartTitle.Text = "essai"
      '.ChartType = xlLine
      '.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
       ' "Courbe - Histo. 2 axes"
 
   End With
    Fname = ThisWorkbook.Path & "\temp.gif"
    Graph.Chart.Export Filename:=Fname, FilterName:="GIF"
    UF_Img.IMG_histoTarif.Picture = LoadPicture(Fname)
    UF_Img.Show
End Sub

[Hellgast]

résolu

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
Option Explicit
 
Sub AfficherGraph()
    Dim sheet_name As String
    Dim Fname As String
    Dim Ligne As Variant
    Dim i As Byte, j As Integer, last_column As Integer
    Dim Tableau_price(20) As Double, Tableau_model(20) As String
 
    sheet_name = "db_Ordinateur"
    Worksheets(sheet_name).Activate
 
    With ActiveSheet
    Dim MaPlage As Range
 
        last_column = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
        Set MaPlage = .UsedRange.SpecialCells(xlCellTypeVisible)
 
 
                For j = 2 To 20
                    Tableau_price(j) = extraireValNum(Cells(j, 10).Value)
                    Tableau_model(j) = Cells(j, 1).Value
                    j = j + 1
                Next
 
    End With
 
    'Création graphique
    Charts.Add
    'Définit la localisation du graphique:
    'dans la feuille de calcul Feuil1 pour cet exemple
 
 
 
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = Tableau_model() 'Abscisses
        .SeriesCollection(1).Values = Tableau_price() 'Ordonnées
        .SeriesCollection(1).Name = "Prix"
        'Définit le type (Courbe)
    End With
    Fname = ThisWorkbook.Path & "\temp.gif"
    ActiveChart.Export Filename:=Fname, FilterName:="GIF"
    UF_Img.IMG_histoTarif.Picture = LoadPicture(Fname)
    UF_Img.Show
End Sub
 
Function extraireValNum(ByVal chaine As String)
 
    Dim i As Byte, Nb As Byte
    Dim res As Double
    Dim Cible As String, Resultat As Double, j As Integer
 
    Dim Nombre As Double
    Dim tab_exemple()
 
    Cible = chaine
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    'Debug.Print Mid(Cible, 1, 7)
    Cible = Replace(Cible, ",", ".")
 
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
 
    j = 1
    For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
 
            Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
            Nb = Nb + 1
            Resultat = Resultat & Nombre & vbLf
            i = i + Len(Str(Nombre)) - 1
            res = Val(Mid(Cible, 1, 7))
        End If
    Next
        extraireValNum = res
End Function