VBA creation titre graphique avec une formule

Bonjour à tous,

Je suis actuellement entrain de développer une macro qui crée automatiquement un graphique (rien de plus banal).

Néanmoins, à la création du graphique, je souhaiterais que le titre du graphique corresponde à la case que j'ai défini.

Pour ce faire, j'ai fais :

ActiveSheet.Paste

ActiveSheet.ChartObjects("Graphique 3").Activate

ActiveChart.ChartTitle.Select

Selection.Caption = "='Suivi des indicateurs 3'!R40C1"

Le problème, c'est qu'au terme de la macro, une fenêtre s'ouvre et m'indique que "La formule que vous avez tapé contient une erreur". Dans l'attente de votre retour,

Et vous remerciant par avance.

Benoit

Tu devrais joindre ton fichier et on pourrait voir ce qu'on peut faire...

A te relire

Bye !

bonjour

j'ai fais une sub pour mettre a jour un graphique dans un projet précédent

la voici a adapter en conséquence :

Sub mise_a_jour_donnees_graphe(nom_graphe As String, plage_donnees As String, titre As String, choix_serie_colonne_ligne As Integer)
With Sheets(ActiveSheet.Name)
    With .ChartObjects(nom_graphe).Chart
        'type de graphe
        .ChartType = xlRadar
        'les données
        .SetSourceData Source:=Range(plage_donnees), PlotBy:=choix_serie_colonne_ligne
        'pour plotby voir [url]http://www.commentcamarche.net/forum/affich-5680025-macro-excel-inversion-axe-ordonnee[/url]
        'echelle
        .Axes(xlValue).MinimumScale = 0
        .Axes(xlValue).MaximumScale = 20
        'titre du graphique
        .HasTitle = True
        .ChartTitle.Characters.Text = titre
    End With
End With

End Sub

et pour l'appeler :

mise_a_jour_donnees_graphe "Graphe1", ("'" & ActiveSheet.Name & "'!$B$1:$E$15"), ("Spécialité"), xlRows

fred