Discussion :

[fabb5]

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 :

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

Et il me colore la ligne suivante :

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

Merci pour votre aide précieuse !
Fabien

[SfJ5Rpw8]

voir aide en ligne

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...

[fabb5]

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

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

[Elstak]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ) faut pas mettre les " "

[SfJ5Rpw8]

pour le nom un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fabb5]

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

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

pour le nom un truc du genre :

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim c As ChartObject

[fabb5]

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

A tout bientôt !