VBA graphique chartobject

Oxygene31 · 6 Février 2011

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

Code:

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

) mais je ne trouve pas.

merci pour vos réponses

MJ13 · 6 Février 2011

Re : VBA graphique chartobject

Bonjour Oxygene

As tu essayé:

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

Pierrot93 · 6 Février 2011

Re : VBA graphique chartobject

Bonjour Oxygène, Michel

pour nommer un graph incorporé :

Code:

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

bonne soirée
@+

Pierrot93 · 6 Février 2011

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

Code:

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 · 6 Février 2011

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 · 6 Février 2011

Re : VBA graphique chartobject

Re,

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

Oxygene31 · 6 Février 2011

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

VBA graphique chartobject

Oxygene31

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Oxygene31

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Oxygene31

XLDnaute Nouveau

Discussions similaires