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

Rechercher des sujets similaires à "erreur creation graphique"