VBA graphique chartobject

[Oxygene31]

Bonjour à tous

Alors j'ai parcouru le forum et j'ai eu quelques réponses mais j'ai encore un problème.

Avant toute chose voici ce que je compte faire :
J'ai crée une maccro qui m'affiche plusieurs graphiques suivant des données obtenu via une requete MS QUERY.
j'aimerai qu'a chaque nouvelle requête la feuille se réinitialise et m'affiche les nouveaux graphes

Mon problème:
Excel attribue par défaut un nom aux graphiques et incrémente ce nom de +1 a chaque nouveau graphique crée (graphique 1, graphique 2 etc ...)
Je rencontre donc un problème pour déplacer les graphiques (il faut donner les noms des graphiques que l'on veut déplacer(logique))

Pour résoudre ce problème il suffirait que j'attribue a chaque graphiques son nom au moment de la création via la macro et non pas après (avec

ActiveSheet.ChartObjects("Graphique 1").Name = "nouveaux nom"

) mais je ne trouve pas.

merci pour vos réponses

 

[MJ13]

Re : VBA graphique chartobject

Bonjour Oxygene

As tu essayé:

ActiveSheet.ChartObjects(1).Name = "nouveaux nom"

 

[Pierrot93]

Re : VBA graphique chartobject

Bonjour Oxygène, Michel

pour nommer un graph incorporé :

Sheets("Feuil1").Shapes(1).Name = "NomGraph"

bonne soirée
@+

 

[Pierrot93]

Re : VBA graphique chartobject

Re,

un code ci-dessous, qui créé un graph et le place directement lors de sa création sur la cellule L1, si cela peut t'aider... :

Sub test()
Dim c As ChartObject, s As Series
Set c = Feuil5.ChartObjects.Add(Range("L1").Left, Range("L1").Top, 350, 150)
With c.Chart
    .ChartType = xlLineMarkers
    .SetSourceData Source:=Feuil5.Range("A1:D6"), PlotBy:=xlRows
    Set s = .SeriesCollection.NewSeries
    With s
        .Values = Feuil5.Range("M21:o21")
        .Name = Feuil5.Range("L21")
        .ChartType = xlAreaStacked
    End With
End With
End Sub

 

[Oxygene31]

Re : VBA graphique chartobject

Le fait de mettre (1) ne reviens pas à mettre ("Graphique 1") (dans le sens ou 1 je suppose est l'index de l'objet et donc va s'incrémenter également) ??

 

[Pierrot93]

Re : VBA graphique chartobject

Re,

1 est l'index des objets de ce type existants sur la feuille... regarde mon post de 19h21...

 

[Oxygene31]

Re : VBA graphique chartobject

Je n'avais pas vu ton post de 19h21.
J'ai pas encore testé le code mais je pense qu'avec ces infos je vais pouvoir régler mon problème.

Je vous remercie pour ces réponses claires et rapides en tout cas