Masquer / Demasquer Series dans un graphique

[jnasnl]

Bon j'essaie de masquer et demasquer une liste de series sur mon graphique par l'intermediaire de checkboxes mais je n'arrive a aller jusqu'au bout de mon code qui plante pour je ne sais quelle raison.

Peut-etre que des gens plus doues que moi en VBA pourraient me donner un coup de main pr venir a bout de mon probleme et me permettre ainsi de finir mon template ?

Merci d'avance pour l'aide !
Jean-Nicolas


Voici le code:
Sub Affiche()
UserForm1.Show
End Sub
Sub GestionSerie()
ValeursX = Array("R11C7:R20C7", "R11C7:R20C7", "R11C7:R20C7", "R11C7:R20C7")
Valeurs = Array("R23C16:R32C16", "R23C17:R32C17", "R23C18:R32C18", "R23C18:R32C18")
Nom = Array("R47C3", "R48C3", "R49C3", "R49C3")
Couleur = Array(55, 7, 6, 8)
For Each X In ActiveSheet.ChartObjects("1").Chart.SeriesCollection
X.Delete
Next
For i = 1 To 3
If UserForm1.Controls("CheckBox" & i).Value Then
Set NouvelleSerie = ActiveSheet.ChartObjects("1").Chart.SeriesCollection.NewSeries
With NouvelleSerie
.XValues = "=Sheet1!" & ValeursX(i - 1)
.Values = "=Sheet1!" & Valeurs(i - 1)
.Name = "=Sheet1!" & Nom(i - 1)
.Border.ColorIndex = Couleur(i - 1)
.MarkerBackgroundColorIndex = Couleur(i - 1)
.MarkerForegroundColorIndex = Couleur(i - 1)
.MarkerStyle = xlCircle
End With
End If
Next i
End Sub

On m'affiche l'erreur suivante:
Run-time error '-2147024809 (80070057)':
The item with the specified name wasn't found.

 

[Victor21]

Re : Masquer / Demasquer Series dans un graphique

Bonjour.

Pour info, et sous réserve que les versions plus récentes fonctionnent de la même manière, sous Excel 2003 le fait de masquer une colonne ou une ligne contenant une série masque la série correspondante sur le graphique.