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 :
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
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
 
Set Graphique = ThisWorkbook.Charts.Add
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = tab1()
        .SeriesCollection(1).Values = tab2()
    End With
Pour information, tab1 et tab2 sont de même dimension (99) et de même type (integer).

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.