Séries d'un graphique issues d'une macro

Version imprimable

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:

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?

07/07/2009, 09h12
Krovax

Pour faire un graphique il me semble que tu doit inscrire les données dans une feuille et utilisé la plage de la feuille comme source du graphique
Tu ne peux pas directement utilisé des variables tableaux
07/07/2009, 09h14
christophe_fr

Je voulais éviter cette méthode pour la "beauté" du code, mais si il n'y a pas d'autres solutions je le ferai.

Dans la mesure où tu crées un nouveau graph, tu dois aussi créer les séries (*****)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Test() Dim Tablo1, Tablo2, Tablo3 Tablo1 = Array("papa", "maman", "la bonne", "le chien", "le chat", "le canari", "la tortue", "et moi") Tablo2 = Array(1, 3, 5, 7, 11, 13, 17, 19) Tablo3 = Array(1, 7, 9, 12, 15, 17, 18, 24) Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("I6") ActiveChart.SeriesCollection.NewSeries 'Ici ***** ActiveChart.SeriesCollection(1).XValues = Tablo1 ActiveChart.SeriesCollection(1).Values = Tablo2 ActiveChart.SeriesCollection.NewSeries ' et ici ***** ActiveChart.SeriesCollection(2).Values = Tablo3 ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" End Sub
Bonne journée

Edit

Citation:

Envoyé par Krovax

Pour faire un graphique il me semble que tu doit inscrire les données dans une feuille et utilisé la plage de la feuille comme source du graphique
Tu ne peux pas directement utilisé des variables tableaux

Eh non ! enfin si ! :aie:
Je n'avais pas vu ta réponse, Krovax, mais jète un oeil dans l'aide en ligne. Extrait :

Citation:

Envoyé par l'aide en ligne à Values, Propriété

Cet exemple montre comment définir les valeurs d'une série à partir d'une plage.

Charts("Chart1").SeriesCollection(1).Values = _
Worksheets("Sheet1").Range("C5:T5")
Pour affecter une constante à chaque point de données, vous devez utiliser un tableau.

Charts("Chart1").SeriesCollection(1).Values = _
Array(1, 3, 5, 7, 11, 13, 17, 19)

Faut pas oublier F1 ! :mouarf:

07/07/2009, 10h09
Krovax

Effectivement, pris d'un doute j'avais édité mon message pour rajouter le "il me semble". Prochaine fois je pousserais plus loin mes investigations concernant mes doutes :oops:
07/07/2009, 11h41
christophe_fr

J'ai cherché à utiliser l'instruction "Array", mais je suis confronté à deux problèmes:
1) Comment définir un Array de 50 cases
2) Comment incrémenter la case du tableau dans laquelle je stocke le résultat de mes équations It1,It2... (Ces équations sont dans une boucle for et sont calculés 50 fois)
Ceux que j'ai trouvé dans l'aide n'a pas marché:(
07/07/2009, 13h48
ouskel'n'or

Tu n'es pas obligé d'utiliser "Array". Lis bien ce que je t'ai mis, ton problème ne vient pas de la construction du tableau mais de l'absence de création des séries. Ma réponse n'était qu'un exemple pour montrer ce que tu avais oublié.
Faut lire ! ;)
A+

PS - La seule contrainte est que les données doivent se présenter sous la forme de tableaux de variants.

Je créé bien les séries j'avais juste oublier de les copier dans l'exemple de code que je t'ai montré... oups

Sur le code ci-dessous je copie les données de mon tableau sur la feuille 2 du classeur avant de les mettre dans le graph. A présent que tu m'as confirmé que je n'étais pas obligé de faire cette manip, j'ai essayé de passé par l'instruction Array mais je n'arrive pas à déclarer un array de 50 cases et d'en faire varier la cellule dans lequel je mets le résultat des équations It1,It2...

J'ai l'impression que pour déclarer un Array il faut déjà connaître les valeurs que l'on va mettre, ce qui me paraît surprenant...

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
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 / (4 * PI * Lt * Sqr(Abs(Res ^ 2 - 4 * 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)
    Feuil2.Cells(compteur, 1) = It1(compteur)
    It2(compteur) = A2 * Exp(-tmes / T) * Sin(w * tmes)
    Feuil2.Cells(compteur, 2) = It2(compteur)
    It3(compteur) = A3 * Exp(-tmes / T) * Sin(w * tmes)
    Feuil2.Cells(compteur, 3) = It3(compteur)
    Inductance(compteur) = (Ll * 1000)
    'Valeur de l'inductance en mH pour la simplicité de lecture sur le graphique
    Feuil2.Cells(compteur, 4) = Inductance(compteur)
Next Ll
 
    Charts.Add
 
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
 
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
 
    'Nouvelles séries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
 
    'Renomme les nouvelles séries
    ActiveChart.SeriesCollection(1).Name = "=""Front de courant maximum"""
    ActiveChart.SeriesCollection(2).Name = "=""Front de courant en régime établi"""
    ActiveChart.SeriesCollection(3).Name = "=""Front de courant minimum"""
    'Série 1
    ActiveChart.SeriesCollection(1).XValues = "=Feuil2!R1C4:R50C4"
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!R1C1:R50C1"
 
    'Série 2
    ActiveChart.SeriesCollection(2).XValues = "=Feuil2!R1C4:R50C4"
    ActiveChart.SeriesCollection(2).Values = "=Feuil2!R1C2:R50C2"
 
    'Série 3
    ActiveChart.SeriesCollection(3).XValues = "=Feuil2!R1C4:R50C4"
    ActiveChart.SeriesCollection(3).Values = "=Feuil2!R1C3:R50C3"

07/07/2009, 22h24
ouskel'n'or

Si tu passes par des cellules pour le tableau, le range correspondant à ces cellules est un tableau à deux dimensions. Comme je ne connais pas la structure des données de ton graphe, je suppose deux solutions : Soit tu utilises le range correspondant à la plage de données pour définir la série, soit tu récupères les données de la plage de cellules dans un tableau à une dimension.
Sois plus précis sur la structure des données que tu souhaites utiliser pour ton graphe.
A+

Citation:

J'ai l'impression que pour déclarer un Array il faut déjà connaître les valeurs que l'on va mettre

En effet, c'est pourquoi la méthode que tu utilises devrait coller. J'ai fait quelques tests. Je te mets deux syntaxes qui fonctionnent et une qui ne fonctionne pas, pas pour t'éviter de chercher mais parce que je ne comprends pas pourquoi. :evil:
Les données sont sous cette forme

Code:

1
2
3
4
5
6
7
8
9
A	B	C
papa	4	11
maman	12	8
bonne	8	15
chien	7	14
chat	3	9
canari	4	3
tortue	7	7
poisson	21	9

Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Test()
Dim Tablo1, Tablo2(), Tablo3()
    Worksheets("feuil1").Select
    Range("A1").Select
    For i = 1 To 8
        ReDim Preserve Tablo2(i)
        Tablo2(i) = Cells(i, 2)
        ReDim Preserve Tablo3(i)
        Tablo3(i) = Cells(i, 3)
    Next
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("I6")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = Tablo2
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = Tablo3
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    'pour XValues les deux syntaxes suivantes fonctionnent si Tablo1 est rempli ainsi
    Tablo1 = Array("papa", "maman", "bonne", "chien", "chat", "canari", "tortue", "poisson")
    ActiveChart.SeriesCollection(1).XValues = Tablo1
    '... ou si on utilise une plage de cellules
    ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R1C1:R8C1"
End Sub

Par contre, la syntaxe consistant à renseigner Tablo1 (contenant les étiquettes) comme je l'ai fait pour les séries ne fonctionne pas pour XValues.

Code:

1
2
3
4
5
6
    For i = 1 To 8
        ReDim Preserve Tablo1(i)
        Tablo1(i) = Cells(i, 1)
        'Etc.
        '...    
    Next

Si ça peut t'aider...
Bonne nuit

08/07/2009, 09h54
christophe_fr

Si ça peut m'aider... Il y a intérêt que ça m'a aider!!!
Le problème venait du Redim preserve que je n'utilisais pas! Avec la méthode que tu m'as donné le code est souple et réalise exactement ce que je voulais faire.

Merci beaucoup