Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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 ....