Discussion :

[dompatou]

Bonjour,

J'essaye d'automatiser certaines taches dans mon traitement de données à partir de macro enregistrée que je retravaille ensuite
Lors de la définition des données sources d'un graphique, j'ai l'erreur d'exécution 2004 (La méthode 'Cells' de l'objet '_Global' a échoué). Le graphique est dans la feuille Chronique et la série se nomme Débit. Les données sources sont dans la feuille Analyse ; les colonnes sont fixes mais le nombre de ligne peut varier.
J'ai essayé de trouver la réponse à ce problème dans les discussions existantes mais pour l'instant je débloque pas.
Si quelqu'un pouvait me donner un coup de pouce ...
Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Recherche de la dernière ligne de données
    Sheets("Analyse").Select
    Dim NoLigne As Integer
    Range("A7").Select
    Selection.End(xlDown).Select
    NoLigne = ActiveCell.Row

'Graphique de la Chronique
    'Sélection des données source
    Sheets("Chronique").Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(Débit).XValues = Worksheets("Analyse").Range(Cells(7, 1), Cells(NoLigne, 1))
    ActiveChart.SeriesCollection(Débit).Values = Worksheets("Analyse").Range(Cells(7, 2), Cells(NoLigne, 2))

[ouskel'n'or]

Je commencerais par vérifier chacune des variables de ta ligne

[dompatou]

Rebonjour,

Je n'ai pas réussi à trouver ce qui clochait dans les varaibles pour corriger mon erreur (Merci quand même pour le coup de pouce dont je n'ai pas saisi l'impulsion). Alors j'ai essayé de m'y prendre autrement, et en particulier en ne partant pas d'une macro enregistrer sous Excel. Et pour cela le guide "Programmer efficacement Microsoft Excel" écrit par J-M Rabilloud est bien utile pour progresser. Au passage merci à lui et à l'équipe de développer.com.

Pour finir voila le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Graphique de la Chronique
    'Sélection des données sources
    Sheets("Analyse").Select
    Dim Debit, Temps As Range
    Set Temps = Worksheets("Analyse").Range(Cells(7, 1), Cells(NoLigne, 1))
    Set Debit = Worksheets("Analyse").Range(Cells(7, 2), Cells(NoLigne, 2))
    'Création graphique
    Dim Graph As Chart
    Set Graph = Charts.Add
    Graph.ChartType = xlXYScatterLinesNoMarkers
    Graph.SeriesCollection(1).Delete
    'Ajout série
    Dim SerieDebit As Series
    Set SerieDebit = Graph.SeriesCollection.NewSeries
    SerieDebit.XValues = "=" & Temps.Address(True, True, xlR1C1, True)
    SerieDebit.Values = "=" & Debit.Address(True, True, xlR1C1, True)

Merci encore
Dom