sub vol()
On Error GoTo erreur:
...
macro
...
Charts('graph' & Sheets('filtre').Range('da1000').Value).Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.seriescollection.NewSeries 'création d'une nouvelle série
ActiveChart.seriescollection(1).XValues = '='' & feuille & ''!R3C9:R' & nba + 2 & 'C9'
ActiveChart.seriescollection(1).Values = '='' & feuille & ''!R3C14:R' & nba + 2 & 'C14' 'ligne de l'erreur
...
macro
...
Dim I As Byte, nombrepoints As Byte
nombrepoints = Charts('graph' & Sheets('filtre').Range('da1000').Value).seriescollection(1).Points.Count
On Error Resume Next 'deuxième on error qui n est pas executé du coup puisque c est le premier qui est activé'
With Charts('graph' & Sheets('filtre').Range('da1000').Value)
With .seriescollection(1).Points(I)
.HasDataLabel = True
.DataLabel.Characters.Text = CStr(Sheets(Sheets'filtre').Range('da1000').Value).Range('a' & I + 2).Value)
End With
End With
Next
Exit Sub
erreur:
MsgBox 'La volatilité n'est pas calculable pour cet échantillon de fonds'
end sub