Bonjour!

J'ai un soucis majeur sur VBA, et après avoir éplucher tous les forums et toutes aides je vous pose la question parce que je n'y arrive pas!!!

J'ai un énorme tableau de données filtré, et je souhaite pouvoir automatiser la création d'un graphique nuage de points dans une nouvelle feuille avec seulement un groupe de données!!

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
29
30
31
32
33
34
35
36
37
 
Sub TEST()
 
'Selection de la feuille avec le tableau de données
 
    Worksheets("data").Select
 
'Selection de la ligne avec les filtres
 
    Range("A1:J1").Select
 
'Selection des bons filtres
 
        selection.AutoFilter field:=4, Criteria1:="30 minute cooking class"
 
        selection.AutoFilter field:=6, Criteria1:=Array( _
            "12:00:00", "12:30:00", "13:00:00", "13:30:00", "14:00:00"), Operator:=xlFilterValues
 
'Selection de la colonne que je veux analyser
 
    Range(Range("I2"), Range("I2").End(xlDown)).Select
 
'Création d'une nouvelle feuille
 
    Sheets.Add
 
    ActiveSheet.Name = ("TEST")
 
'Création du nuage de points avec les sources de données que je viens de filtrer
 
    ActiveSheet.Shapes.AddChart.Select
 
    ActiveChart.SetSourceData Source:=Sheets("Data").Range(Range("I2"), Range("I2").End(xlDown))
 
    ActiveChart.ChartType = xlXYScatter
 
End Sub
Mon veritable soucis est par rapport à la source de mon graphique, je ne sais pas comment faire, j'ai toujours un message d'erreur!

Merci d'avance pour votre aide, je débute un peu sur VBA !!