Bonjour à tous,

J'ai réalisé une macro qui permet de calculer des données de sorties en fonction des données d'entrées saisies dans la feuille Excel. A présent je voudrai tracer un graphique avec les tableaux que j'ai calculés.

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
 
Dim It1(51), It2(51), It3(51), Inductance(51) As Variant
 
For Ll = 0 To 0.0001 Step 0.00002
    compteur = compteur + 1
    Lt = Lc + Ll
    T = 2 * Lt / Res
    F = 1 / (2 * PI * Sqr(Lt * C))
    w = 2 * PI * F
    A1 = 2 * Vc1 / (Lt * w)
    A2 = 1.5 * Vc1 / (Lt * w)
    A3 = Vc1 / (Lt * w)
    It1(compteur) = A1 * Exp(-tmes / T) * Sin(w * tmes)
    It2(compteur) = A2 * Exp(-tmes / T) * Sin(w * tmes)
    It3(compteur) = A3 * Exp(-tmes / T) * Sin(w * tmes)
    Inductance(compteur) = Ll
Next Ll   
 
  Charts.Add
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("F8")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"   
ActiveChart.SeriesCollection(1).XValues = Inductance()
    ActiveChart.SeriesCollection(1).Values = It1()
    ActiveChart.SeriesCollection(2).Values = It2()
    ActiveChart.SeriesCollection(3).Values = It3()
Je n'est pas inséré tout mon code mais seulement les parties concernant mon problème.

Ce sont les dernières lignes qui posent problème, l'erreur d'execution '1004' survient (Erreur définie par l'application ou par l'objet).
Quel code dois-je entrer pour affecter aux séries du graphique les tableaux It1(), It2(), It3() et Inductance() que j'ai calculés?