Bonjour !
Je suis en train de travailler sur un projet dans lequel je dois, entre autre, tracer les valeurs contenues dans le tableau tab2 en fonction de celles contenues dans le tableau tab1. Etant donné la qualité des cours dispensé par le professeur, je pars à la recherche d'aide sur le net. Ô joie, je tombe sur ce site et je trouve un joli code dans la FAQ qui marche. Problème : quand j'essaye de l'adapter à mon programme, bah il marche beaucoup moins bien...
Voilà le code original de la FAQ, pour éviter de chercher :
Et voilà le morceau de code retravaillé qui ne marche pas :
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
29
30
31
32
33 Sub creationGraphiqueParTableau() Dim i As Byte Dim Tableau(10) As Integer, Tableau2(10) As Integer 'Création du tableau pour les Abscisses For i = 1 To 10 Tableau(i) = i * 2 Next i 'Création d'un tableau pour les Ordonnées For i = 1 To 10 'Le tableau est rempli par des valeurs aléatoires pour 'cet exemple Tableau2(i) = Int((50 * Rnd) + 1) Next i 'Création graphique Charts.Add 'Définit la localisation du graphique: 'dans la feuille de calcul Feuil1 pour cet exemple ActiveChart.Location _ Where:=xlLocationAsObject, Name:="Feuil1" 'Ajoute une série dans le graphique With ActiveChart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = Tableau() 'Abscisses .SeriesCollection(1).Values = Tableau2() 'Ordonnées 'Définit le type (Courbe) .ChartType = xlLine End With End Sub
Pour information, tab1 et tab2 sont de même dimension (99) et de même type (integer).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Set Graphique = ThisWorkbook.Charts.Add With ActiveChart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = tab1() .SeriesCollection(1).Values = tab2() End With
Après, j'essaierai de rajouter mes autres séries de données, mais à priori, ce n'est pas ce qui va être le plus compliqué...
Merci d'avance pour votre aide.
Partager