Bonjour,

Peut-on m'aider et m'expliquer le problème dans ce 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
Sub selectiondedonnées()
'
' Macro10 Macro
'
 
'
Sheets("Select RANGE AC CO").Select
If Cells(R, 5).Value = "Standard Noise" Then
 
    Sheets("dB STD").Select
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='data selected'!$L$2"
    ActiveChart.SeriesCollection(2).XValues = "='data selected'!$M$11:$M$408"
    ActiveChart.SeriesCollection(2).Values = "='data selected'!$O$11:$P$408"
 
 
End If
 
End Sub

Merci d'avance.