Discussion :

[Takis]

Bonjour,

Je dois créer un graphique sous Excel 2003 via le visual basic mais je rencontre quelques difficultés.

J'ai écris ce morceau de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Charts.Add
            ActiveChart.ChartType = xlLineMarkers
            ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
            With ActiveChart
                .HasTitle = True
                .ChartTitle.Characters.Text = "Titre du graphique"
                .ChartTitle.Font.Size = 10
                .HasLegend = True
                .Legend.Position = xlLegendPositionBottom
            End With

Note que je crée toute une série de "séries de graphique" par la suite.

Mais je suis obligé de sélectionner des données dans la sheet avant d'enclencher la macro pour qu'il ne râle pas. Si je ne sélectionne rien, il me met cette erreur :

Erreur 1004 : La méthode "HasTitle" de l'objet _Chart a échoué

Alors que cela fonctionne parfaitement dans Excel 2007 (mais je suis obligé d'avoir la compatibilité :/)

Merci d'avance.

[aalex_38]

J'ai seulement excel 2007 alors je ne peux pas testé, essaies de passer par le nom du graphique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
' au lieu de activechart :
Charts("NomGraph")

[Takis]

Je ne sais pas comment lui donner un nom, alors je suis passé par une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set chtChart = Charts.Add

Mais ça ne change rien :/

[DeaD78]

Sur Excel 2003 ça ne marche pas ?

Je viens d'obtenir ça avec l'enregistreur de macros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("O26:O35"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "blabla"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

C'est exactement ce que tu as aux données près.

EDIT : je viens de comprendre... Je ne suis pas sûr que tu puisses. Je suis même plutôt sûr que tu ne peux pas donner de titre à ton graphique sans avoir choisi la plage de données avant. Crées un graphique "à la main". Tant que la plage de données n'est pas choisie, tu ne peux pas sélectionner ton graphique et lui donner un titre. Si ce mode de fonctionnement est valable dans Excel, il l'est aussi pour les macros. A moins que quelqu'un ait une solution miracle, je te conseille quand même de leur attribuer une plage de données avant.

[Takis]

Exact, un grand merci

On est obligé d'avoir mentionné des données avant de lui attribuer un titre et une légende.

Microsoft pourrait penser à foutre des erreurs un peu plus précises :/

Merci.

[DeaD78]

De rien

To be or not to be ?