Récupérer la Source pour la création d'un graphique

Bonjour à tous,

J'ai un nouveau petit problème dans la création de graphiques cette fois-ci, voici mon code :

Code:

---

1 2 3 4 5

NomDonnee = "Graph" & i ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = NomDonnee NomDonnee = "Tableau" & i Set SelectionRange = Worksheets(NFDonnees).Range(NomDonnee) ActiveChart.SetSourceData Source:=Worksheets(NFDonnees).Range(NomDonnee)

---

C'est dans une boucle, raison pour laquelle on utilise un i ici. J'ai toujours un bug sur la dernière ligne (message d'erreur : n°91 Object variable or with block variable not set) sauriez vous me dire pourquoi ?
Soit dit en passant, il y a bien quelque part dans la feuille NFDonnees une sélection NomDonnee

Merci d'avance,


Philippe

Bonjour,

Code:

---

1 2 3 4

NomDonnee = "Graph" & i ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = NomDonnee Set SelectionRange = Worksheets(NFDonnees).Range(NomDonnee) ActiveSheet.ChartObjects(NomDonnee).Chart.SetSourceData Source:=SelectionRange

---