Discussion :

[lebowsky60]

Bonjour,
dans ma macro je cherche à créer un graphique constitué de différentes séries suivant certaines conditions. Lorsqu'une des séries ne rempli pas la condition elle n'est pas créer jusque là tout va bien sauf que malgrès qu' elle ne soit pas créer, elle figure dans la légende. Je cherche mais je ne trouve pas de solution, j'arrive juste à supprimer totalement la légende.
Quelqu'un pourrait-il m'aider?
voici mon code:

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
  If NOx <> "" Or NO <> "" Then
    Set Ch2 = ThisWorkbook.Charts.Add
    Ch2.ChartType = xlXYScatterLinesNoMarkers
    Ch2.Name = "NOx-NO Essai 1"
    Ch2.HasTitle = True
    Ch2.ChartTitle.Text = "Essai 1"
    Ch2.PlotArea.Border.LineStyle = xlContinuous
 
        For Each serie In Ch2.SeriesCollection
            serie.Delete
        Next
 
        If Not NOx Is Nothing Then
         With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 7)
            .Values = PlageNOx
            .XValues = Plage1
         End With
        End If
        If Not NO Is Nothing Then
         With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 8)
            .Values = PlageNO
            .XValues = Plage1
         End With
        End If
 
    With Ch2.Axes(xlValue, xlPrimary)
    .HasTitle = True
    .AxisTitle.Text = "ppm"
    .AxisTitle.Orientation = 90
    .MajorGridlines.Delete
    End With
 
    With Ch2.Axes(xlCategory)
    .MinimumScale = CDate(cDebut1.Offset(, -1))
    .MaximumScale = CDate(cFin1.Offset(, -1))
    End With
 
  End If

[Daniel.C]

Bonjour,

Essaie comme ceci :

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
If NOx <> "" Or NO <> "" Then
    Set Ch2 = ThisWorkbook.Charts.Add
    Ch2.ChartType = xlXYScatterLinesNoMarkers
    Ch2.Name = "NOx-NO Essai 1"
    Ch2.HasTitle = True
    Ch2.ChartTitle.Text = "Essai 1"
    Ch2.PlotArea.Border.LineStyle = xlContinuous
 
    For Each serie In Ch2.SeriesCollection
        serie.Delete
    Next
    Ch2.SetElement (msoElementLegendNone)
    If Not NOx Is Nothing Then
        With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 7)
            .Values = PlageNOx
            .XValues = Plage1
        End With
    End If
    If Not NO Is Nothing Then
        With Ch2.SeriesCollection.NewSeries
            .Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 8)
            .Values = PlageNO
            .XValues = Plage1
        End With
    End If
 
    With Ch2.Axes(xlValue, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "ppm"
        .AxisTitle.Orientation = 90
        .MajorGridlines.Delete
    End With
 
    With Ch2.Axes(xlCategory)
        .MinimumScale = CDate(cDebut1.Offset(, -1))
        .MaximumScale = CDate(cFin1.Offset(, -1))
    End With
    ActiveChart.SetElement (msoElementLegendRight)
End If

[lebowsky60]

merci mais erreur d"éxecution
la méthode 'setelement' de l'objet 'chart' à échoué

[Daniel.C]

Tu devrais préciser au départ ta version d'Excel, ça fait souvent gagner du temps. C'est particulièrement utile pour les TCD et les graphiques. Indique également la ligne en erreur.

[lebowsky60]

merci j'ai trouvé une solution comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    If NOx <> "" Xor NO <> "" Then
        If NOx <> "" Then
        Ch2.Name = "NOx Essai1"
        Ch2.ChartTitle.Text = "Evolution des oxydes d'azote pendant l'essai 1"
        Ch2.SetElement (msoElementLegendNone)
        End If
        If NO <> "" Then
        Ch2.Name = "NO Essai1"
        Ch2.ChartTitle.Text = "Evolution du monoxyde d'azote pendant l'essai 1"
        Ch2.SetElement (msoElementLegendNone)
        End If
    Else
    Ch2.SetElement (msoElementLegendTop)
    End If