Discussion :

[nadeson]

Bonjour,
voici ma macro "carte" qui est censé créé des graphiques grace à des données se trouvant sur une feuille. Le programme marche nickel sauf que les points ne sont pas reliés sur la courbe.Oui je sais que je peux le faire par moi meme avec les options excel, mais je veux que les points soient reliés chaque fois que le graph est créé.Comment y remédier?

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
Sub carte()
 
Dim maplage, produit1, produit2, spc1, spc2, repro1, repro2 As Range
Dim mongraph As Chart
Dim mini, maxi, miniSN, maxiSN As Single
Dim analyseur, produit, titre As String
Dim debut, fin As Date
 
mini = Application.WorksheetFunction.Min(Range(Cells(2, 3), Cells(2, 10).End(xlDown)))
maxi = Application.WorksheetFunction.Max(Range(Cells(2, 3), Cells(2, 10).End(xlDown)))
miniSN = Application.WorksheetFunction.Min(Range(Cells(2, 2), Cells(2, 2).End(xlDown)))
maxiSN = Application.WorksheetFunction.Max(Range(Cells(2, 2), Cells(2, 2).End(xlDown)))
analyseur = Worksheets("def").Cells(12, 2).Value
produit = Worksheets("def").Cells(13, 2).Value
debut = Worksheets("def").Cells(10, 2).Value
fin = Worksheets("def").Cells(11, 2).Value
titre = analyseur & " - " & produit & " ( " & debut & " to " & fin & " )"
Application.ScreenUpdating = False 'désactive mise à jour écran pendant execution
 
'selection de la plage de données pour le graph
Set maplage = Worksheets("données").Range(Cells(2, 4), Cells(2, 2).End(xlDown))
 
'création du graph
Set mongraph = ThisWorkbook.Charts.Add
mongraph.ChartType = xlXYScatterLinesNoMarkers
mongraph.SetSourceData maplage, xlColumns
mongraph.PlotArea.Interior.ColorIndex = xlNone
With mongraph.Axes(xlCategory)
    .HasMajorGridlines = False
    .HasMinorGridlines = False
End With
With mongraph.Axes(xlValue)
    .HasMajorGridlines = False
    .HasMinorGridlines = False
End With
With mongraph.SeriesCollection(1)
    .ChartType = xlXYScatter
    .Name = "Result"
    .MarkerBackgroundColorIndex = 25
    .MarkerForegroundColorIndex = 25
End With
With mongraph.SeriesCollection(2)
    .Name = "EP"
    .Border.ColorIndex = 1
End With
'ajout des séries de limites et mise en forme
If Worksheets("données").Cells(2, 5).Value = "" Then
Else:
    Set produit1 = Range(Worksheets("données").Cells(1, 5), Worksheets("données").Cells(1, 5).End(xlDown))
    Set produit2 = Range(Worksheets("données").Cells(2, 6), Worksheets("données").Cells(2, 6).End(xlDown))
    mongraph.SeriesCollection.Add produit1, xlColumns, True
    mongraph.SeriesCollection.Add produit2, xlColumns, False
End If
If Worksheets("données").Cells(2, 7).Value = "" Then
Else:
    Set spc1 = Range(Worksheets("données").Cells(1, 7), Worksheets("données").Cells(1, 7).End(xlDown))
    Set spc2 = Range(Worksheets("données").Cells(2, 8), Worksheets("données").Cells(2, 8).End(xlDown))
    mongraph.SeriesCollection.Add spc1, xlColumns, True
    mongraph.SeriesCollection.Add spc2, xlColumns, False
End If
If Worksheets("données").Cells(2, 9).Value = "" Then
Else:
    Set repro1 = Range(Worksheets("données").Cells(1, 9), Worksheets("données").Cells(1, 9).End(xlDown))
    Set repro2 = Range(Worksheets("données").Cells(2, 10), Worksheets("données").Cells(2, 10).End(xlDown))
    mongraph.SeriesCollection.Add repro1, xlColumns, True
    mongraph.SeriesCollection.Add repro2, xlColumns, False
End If
 
Dim x As Integer
For x = 3 To mongraph.SeriesCollection.Count
    If mongraph.SeriesCollection(x).Name = "product limits" Then
        mongraph.SeriesCollection(x).Border.ColorIndex = 41
        mongraph.SeriesCollection(x).Border.LineStyle = xlDash
        mongraph.SeriesCollection(x + 1).Border.ColorIndex = 41
        mongraph.SeriesCollection(x + 1).Border.LineStyle = xlDash
    ElseIf mongraph.SeriesCollection(x).Name = "SPC limits" Then
        mongraph.SeriesCollection(x).Border.ColorIndex = 50
        mongraph.SeriesCollection(x).Border.Weight = xlMedium
        mongraph.SeriesCollection(x + 1).Border.ColorIndex = 50
        mongraph.SeriesCollection(x + 1).Border.Weight = xlMedium
    ElseIf mongraph.SeriesCollection(x).Name = "method reproducibility" Then
        mongraph.SeriesCollection(x).Border.ColorIndex = 3
        mongraph.SeriesCollection(x + 1).Border.ColorIndex = 3
        mongraph.SeriesCollection(x).Border.Weight = xlMedium
        mongraph.SeriesCollection(x + 1).Border.Weight = xlMedium
   End If
Next x
If mongraph.Legend.LegendEntries.Count = 8 Then
    mongraph.Legend.LegendEntries(8).Delete
    mongraph.Legend.LegendEntries(6).Delete
    mongraph.Legend.LegendEntries(4).Delete
ElseIf mongraph.Legend.LegendEntries.Count = 6 Then
    mongraph.Legend.LegendEntries(6).Delete
    mongraph.Legend.LegendEntries(4).Delete
Else: mongraph.Legend.LegendEntries(4).Delete
End If
 
mongraph.Axes(xlValue).MinimumScale = mini - 1
mongraph.Axes(xlValue).MaximumScale = maxi + 1
mongraph.Axes(xlValue).MajorUnit = 1
mongraph.Axes(xlCategory).MinimumScale = miniSN - 1
mongraph.Axes(xlCategory).MaximumScale = maxiSN + 1
mongraph.Axes(xlCategory).TickLabels.NumberFormat = "0"
mongraph.Axes(xlCategory).HasTitle = True
mongraph.Axes(xlCategory).AxisTitle.Caption = "serial number"
mongraph.HasTitle = True
mongraph.ChartTitle.Text = titre
 
Application.ScreenUpdating = True
 
 
 
End Sub

[fring]

Bonjour,

Fais le manuellement en utilisant l'enregistreur de macro et vois le code qu'il te donne.

[nchal]

Salut
Tu as 2 ChartType, l26 et l38. Le xlXYScatter est un nuage de point. donc je pense que tu as juste besoin de supprimer le ChartType de la ligne 38 pour que le xlXYScatterLinesNomarkers soit pris en compte.

Je te joins un ptit tableau avec tous les types de graph au cas ou.

[nadeson]

Merci pour ta réponse. En effet quand j'enlève le chartype de la ligne 38 il y'a bien les lignes qui apparaissent mais en fait je voulais que tout soit en ligne sauf "Result" qui restera en nuage de points. C'est pourquoi j'avais mis xlXYScatter à la ligne 28. Donc ce que je ne commprends pas c'est pourquoi le xlXYScatterLinesNomarkers de la ligne 26 n'est pas pris en compte?

[nchal]

Salut,

Essaie d'utiliser l'enregistreur de macro pour savoir qu'elle est la propriété pour changer le type de SeriesCollection. Ou alors fouille dans les différentes documentation.

EDIT: en utilisant l’enregistreur, j'ai trouvé sa:

Code :

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

1
2
    ActiveChart.SeriesCollection(1).Select
    Selection.Format.Line.Visible = msoFalse

[nadeson]

Oui effectivement l'idée de l'enregistreur de macro n'est pas bête, j'ai fini par trouver la solution. Le bout de code que tu m'a donné& n'est qu'une partie. Merci encore pour ta réponse