VBA graphique chartobject

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Oxygene31

XLDnaute Nouveau
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
622
Réponses
23
Affichages
2 K
Retour