Erreur création graphique
Bonjour,
J'ai créé à l'aide d'une macro VBA un graphique qui s'adapte selon un nombre de valeurs variables, ma macro fonctionne bien dans un classeur de test cependant dès que je l'adapte à mon fichier celle-ci me découvre une erreur ..
Code fichier de base :
For i = 5 To 21
If Not IsEmpty(Sheets("Niveau 3").Cells(3, i)) Then
Sheets("Graphiques").ChartObjects("Graphique 21").Activate
ActiveChart.SetSourceData Source:=Sheets("Niveau 3").Range(Cells(4, 4), Cells(4, i))
ActiveChart.FullSeriesCollection(1).XValues = Sheets("Niveau 3").Range(Cells(3, 4), Cells(3, i))
ActiveChart.FullSeriesCollection(1).Name = "='Niveau 3'!$C$4:$C$6"
End If
Next i
L'erreur annoncée est :
"Erreur définie par l'application ou par l'objet"
Savez-vous comment contourner cette erreur ?
Merci d'avance,
Vbrod
J'ai réussi à contourner mon problème, pour ceux que ça intéressent voilà ce que j'ai fait :
Dim i As Integer
Dim MaPlage, MaPlage2 As Range
For i = 5 To 21
If Not IsEmpty(Sheets("Niveau 3").Cells(3, i)) Then
Sheets("Niveau 3").Activate
Set MaPlage = Range(Cells(4, 4), Cells(4, i))
Sheets("Graphiques").Activate
Sheets("Graphiques").ChartObjects("Graphique 21").Activate
ActiveChart.SetSourceData Source:=MaPlage
Sheets("Niveau 3").Activate
Set MaPlage2 = Range(Cells(3, 4), Cells(3, i))
Sheets("Graphiques").Activate
Sheets("Graphiques").ChartObjects("Graphique 21").Activate
ActiveChart.FullSeriesCollection(1).XValues = MaPlage2
ActiveChart.FullSeriesCollection(1).Name = "='Niveau 3'!$C$4:$C$6"
End If
Next i
Vbrod