VBA et graphique [Résolu]

[kocipia]

Bonjour,

Je viens vers vous car je ne trouve de solution nul part pour mon problème.

Je viens de créer une macro qui modifierai automatiquement un graphique mais j'ai une erreur de code (il ne detecte pas mon graphique) :

Code :

1
2
3
4
5
Sheets(1).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlin_es.Select
    ActiveChart.SeriesCollection(1).Name = SerieNOM
    ActiveChart.SeriesCollection(1).Values = SerieValeur

erreur : "L"élément portant ce nom est introuvable."

Le graphique est sur le premier onglet appelé "Graph1", il se nomme bien "Graphique 1".

Si quelqu'un à une idée à m'apporter je suis preneur. Merci.

[Vincent32]

Bonjour,

Essaye ceci :

Code :

1
2
3
4
5
Sheets(1).Select
    ActiveSheet.ChartObjects("Graph1").Activate'Il faut renvoyer le nom de la feuille (ou onglet)
    ActiveChart.Axes(xlValue).MajorGridlin_es.Select
    ActiveChart.SeriesCollection(1).Name = SerieNOM
    ActiveChart.SeriesCollection(1).Values = SerieValeur

Personnellement je privilégierait une structure du type:

Code :

1
2
3
With Sheet("Graph1")
'Ton code
End with

[kocipia]

Merci Vincent pour cette réponse mais, hélas, ça ne fonctionne toujours pas.

J'ai essayé ces deux codes et les deux me renvoient la même erreur :

Code :

1
2
3
4
5
6
7
 
With Sheets("Graph1")
        .ChartObjects("Graphique 1").Activate
        .Axes(xlValue).MajorGridlin_es.Select
        .SeriesCollection(1).Name = SerieNOM
        .SeriesCollection(1).Values = SerieValeur
    End With

Code :

1
2
3
4
5
6
 
Sheets(2).Select
    Sheets(2).ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlin_es.Select
    ActiveChart.SeriesCollection(1).Name = SerieNOM
    ActiveChart.SeriesCollection(1).Values = SerieValeur

Le graphique prend toute la page, cela a t-il de l'importance ?

Je viens de trouver ce code sur le net :

Code :

1
2
3
4
5
6
7
8
9
Sub Comptegraph()
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In Sheets("Graph1").ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
End Sub

Il comptabilise le nombre de graphique sur un onglet. Pour moi le résultat est de 0 alors que j'en ai bien un ....

[kocipia]

Bon j'ai fini par prendre le problème à l'envers, si je ne peut pas modifier le graphique, je modifie les cellules qui sont en source de donnée directement.

[AlainTech]

Bonjour,

Une piste pour travailler avec un Chart en pleine page:

Code :

1
2
3
4
5
6
Sub test()
  Dim crt1 As Chart
  Set crt1 = Sheets("Graph1")
  crt1.Axes(xlValue).MaximumScale = 10
  crt1.SeriesCollection(1).Name = "Serie 1"
End Sub

Je n'ai pas pu tester tous les paramètres car je suis sous Excel 2003 mais tu devrais pouvoir trouver les syntaxes correspondantes à l'aide de l'enregistreur de macro.