Création de graphiques "dynamiques"

canichon Messages postés 50 Date d'inscription vendredi 7 juillet 2006 Statut Membre Dernière intervention 2 septembre 2009 - 2 sept. 2009 à 09:18
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 - 5 sept. 2009 à 19:00
Bonjour a tous,

J'ai fait un petit programme qui suit des données sur plusieurs sociétés et je voudrais mettre ces données sur des graphiques.
Mon probleme est que je sais créer des graphiques par : Charts.Add mais je ne sais pas les renommer pour pouvoir les "retrouver" et les mettre a jour par la suite.

est ce que quelqu'un pourrait me donner la syntaxe pour renommer un graphique et changer les fameux "Graphique X"

Merci d'avance

1 réponse

CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 5
5 sept. 2009 à 19:00
Bonjour,

Sub Creer_Graph_avec_Nom()
    Dim Ch As Shape
    Set Ch = ActiveSheet.Shapes.AddChart
    With Ch
        .Name = "MonGraphique"
        With .Chart
            .SetSourceData ([A1:A4])
            .ChartType = xlXYScatterSmooth
        End With
    End With
    Set Ch = Nothing
End Sub


ctac
0