Discussion :

[Mandrill]

Bonjour à tous,

J'ai un problème avec une erreur 424 dans mon code.
Je voudrais créer un graphique, voici mon 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
18
19
20
21
22
23
24
25
26
27
28
Sub feuillegraphique()
 
Dim Mongraphe As Chart, Mafeuille As Worksheet, PlageDonnees As Range
Dim PlageX As Range, PlageY As Range, MaSerie As Series, compteur As Long
 
Set Mafeuille = ThisWorkbook.Worksheets("feuille")
With Mafeuille
    Set PlageDonnees = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Resize(, 6)
End With
 
Set Mongraphe = ThisWorkbook.Charts.Add
Mongraphe.ChartArea.Clear
Mongraphe.ChartType = xlXYScatter
 
Set PlageX = PlageDonnees.Columns(1)
 
For compteur = 1 To PlageDonnees.Columns.Count - 1
   Set PlageY = PlageX.Offset(, compteur)
    Set MaSerie = Mongraphe.SeriesCollection.NewSeries
    With MaSerie
        .Values = PlageY
        .XValues = PlageX (l' erreur est ici!!)
        .Name = PlageDonnees.Cells(1, 1).Offset(, compteur)
    End With
 
Next compteur
 
End Sub

Merci d avance pour votre aide

[DeaD78]

Salut,

Sur quelle ligne se présente l'erreur ?

Lance-le en mode pas à pas si tu ne sais pas.

A+

[Mandrill]

L'erreur se trouve à la ligne de code:

Code :

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

Xvalues = PlageX

[matthias2t]

Bonjour!

Je crois avoir eu le même problème une fois, que je n'ai pas résolu mais contourné en explicitant l'objet :

essaie en remplaçant

Code :

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

1
2
3
4
5
With MaSerie
   .Values = PlageY
   .XValues = PlageX (l' erreur est ici!!)
   .Name = PlageDonnees.Cells(1, 1).Offset(, compteur)
End With

par

Code :

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

1
2
3
MaSerie.Values = PlageY
   MaSerie.XValues = PlageX (l' erreur est ici!!)
   MaSerie.Name = PlageDonnees.Cells(1, 1).Offset(, compteur)

Si ça marche, ça restera peut-être comme un mystère de vba...
Sinon, je ne peux pas t'aider, désolé.

Bon courage!