Bonjour a tous,

Je suis totallement débutant en macro excel et je souhaiterais a partir d'une feuille de données creer plusieur graph, dont l'axe des x aurait toujours les meme valeurs. Je souhaiterais aussi que les graph aient pour titre le nom de l'échantillon et qu'ils soient affiché chacun dans une nouvelle feuille, qui elle meme aurait aussi le nom de l'echantillon. J'ai reussi a faire un graph, avec le bon titre et qui s'affiche dans une nouvelle feuille qui a elle meme le bon titre mais je n'arrive pas a incrementer la plage de la colonne des Y...

Je met ci joint 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Macro1()
 
 
Dim r As String
Dim j As String
 
Dim plage As String
 
 
 
 
 
plage = "=Data!$C$6:$C$806"
 
 
 
 
j = Range("C3")
 
 
 Range("F1").Select
    For i = 0 To Range("C1") - 1
 
 
         ThisWorkbook.Activate
         Application.ScreenUpdating = False
 
 
         Set gr = ThisWorkbook.Charts.Add
 
 
With gr
 
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Data!$B$6:$B$806"
    ActiveChart.SeriesCollection(1).Values = plage
 
 
 
 
 
With ActiveChart
 
        .HasTitle = True
        .ChartTitle.Characters.Text = "Sample " + j
         ActiveSheet.Name = "Sample " + j
         j = j + 1
 
 
        End With
 
 
 
End With
Next i
End Sub

Dans cette macro je souhaiterai que le deuxieme graphe ai pour valeur en Y de D6 à D806, le 3eme graph de E6 à e806 et ainsi de suite pour les autres. J'espere que ce que je souhaite faire est comprehensible... En vous remerciant d'avance.