VBA -> Excel : Fonction ChartObjects()

Bonjour,

Voilà j'aurais une petite question, je n'ai jamais vraiment fais du VB et encore moins du VBA mais j'ai besoin de comprendre une fonction !
J'aimerai comprendre se que produit la fonction ChartObjects() ainsi que comprendre comment est géré son paramètre "Chart 1028".

J'ai essayé de trouver sur Internet mais je n'ai pas trouvé une explication clair sur cette fonction seule.

Pour info c'est pour essayer de débuguer une fonction qui produit l'erreur suivante :

Citation:

---

Erreur d'exécution 1004
Impossible de lire la propriété ChartObjects de la classe Worksheet

---

Et il me colore la ligne suivante :

Citation:

---

Sheets("Nom_de_la_feuille").ChartObjects("Chart 1028").Chart.SetSourceData Source:=Sheets("Benchmark Chart").Range(r)

---

Merci pour votre aide précieuse !
Fabien

voir aide en ligne :f1:

Citation:

---

Envoyé par AideEnligne VBA Excel

Collection de tous les objets ChartObject dans la feuille graphique, la feuille boîte de dialogue ou la feuille de calcul spécifiées. Chaque objet ChartObject représente un graphique incorporé. L'objet ChartObject sert de contenant à un objet Chart. Les propriétés et méthodes de l'objet ChartObject déterminent l'aspect et la taille du graphique incorporé dans la feuille.
Utilisation de la collection ChartObjects
Utilisez la méthode ChartObject pour renvoyer la collection ChartObjects. L'exemple suivant montre comment supprimer tous les graphiques incorporés de la feuille de calcul intitulée « Sheet1 ».
Worksheets("sheet1").ChartObjects.Delete

---

le "paramétre" : "Chart 1028" et le nom du graphique... sur la feuille...

OK merci et désolé, j'y ai même pas pensé :oops: :oops: :oops:

J'aurai alors encore une petite question, comment retrouver le nom du graphique dans la page ? Car vu l'erreur le nom a du changer ... Me tromperais-je ?

Merci

Code:

---

Sheets("Nom_de_la_feuille").

---

ptite erreur, si nom_de_la_feuille est une variable qui contient le nom de ta feuille (ce qui semble etre le cas :P ) faut pas mettre les " "

;)

pour le nom un truc du genre :

Code:

---

1 2 3 4 5 6 7 8

Sub ListeChart() Dim c As Chart For Each c In ActiveSheet.ChartObjects MsgBox c.Name Next   End Sub

---

Citation:

---

Envoyé par Elstak

ptite erreur, si nom_de_la_feuille est une variable qui contient le nom de ta feuille (ce qui semble etre le cas :P ) faut pas mettre les " "

;)

---

Non non ce n'est pas une variable ... c'était pour illustrer !

Citation:

---

Envoyé par bbil

pour le nom un truc du genre :

Citation:

---

Sub ListeChart()
Dim c As Chart
For Each c In ActiveSheet.ChartObjects
MsgBox c.Name
Next

End Sub

---

;)

---

Je me retrouve avec une erreur d'incompatibilité de type ?

Vraiment désolé,
Fabien

oui j'avais pas testé :oops: tiens modifie la ligne :

Code:

---

1 2	Dim c As ChartObject

---

Yes merci ! Vous êtes des chefs c'est parfait !

A tout bientôt !