Tracé de graphes par macro - Création de séries obsolètes

Bonjour,

J'ai réalisé une macro qui trace les courbes dont j'ai besoin.
Je trace une courbe par garphe, je n'ai donc besoin que d'une série par graphe, or, la macro crée 6 séries dont 5 vides. La courbe se trace correctement mais je souhaiterais ne pas voir apparaitre ces 5 séries obsolètes et vides dans la légende, et plus précisément, je souhaiterais qu'elles ne se créent pas.

Merci d'avance pour votre aide.

Bonne soirée.

Abracadabra !
Ca y est !
Normalement, ton code ne les trace plus !

Sérieusement, comment veux-tu qu'on t'aide ?
Tu as un problème dans ton code et tu ne le montres pas !
Comment veux-tu qu'on te dise : "tiens! l'erreur est là ! Fais ceci est tu n'auras plus ton problème..."

Désolé.

Code:

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
Do Until Cells(nlignes, 3) = ""
nlignes = nlignes + 1
Loop
 
Do Until i = nlignes
    Cells(i, 4) = Right(Cells(i, 1), 8)
    i = i + 1
Loop
 
'  Range("F8").Select
  Range("C6:D8").Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=MESURE.164.P_VideA!R6C4:R" & nlignes & "C4"
    ActiveChart.SeriesCollection(1).Values = "=MESURE.164.P_VideA!R6C3:R" & nlignes & "C3"
    ActiveChart.SeriesCollection(1).Name = "=""Réseau Vide"""
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Réseau Vide"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Réseau Vide"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Heure"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Bars"
    End With
 
        ActiveChart.HasDataTable = False
    ActiveChart.Axes(xlCategory).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlAutomatic
    End With
    With Selection
        .MajorTickMark = xlNone
        .MinorTickMark = xlNone
        .TickLabelPosition = xlLow
    End With
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Interior.ColorIndex = xlNone
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = xlNone
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 3
        .Shadow = False
    End With
 
    Sheets("Réseau Vide").Select
    Sheets("Réseau Vide").Move After:=Sheets(7)

Voilà mon code !