bonjour à tous
voila mon problème je souhaite créer un graphique à partir de valeurs qui sont réparties qur 2 lignes mais de manière discontinue j'ai créé ces lignes de 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
Set marange1 = Union(sh.Cells(8, 8), sh.Cells(8, 17), sh.Cells(8, 26), sh.Cells(8, 35), sh.Cells(8, 44), sh.Cells(8, 53), sh.Cells(8, 62), sh.Cells(8, 71), sh.Cells(8, 80))
   Set marange2 = Union(sh.Cells(i, 2), sh.Cells(2, 11), sh.Cells(2, 20), sh.Cells(2, 29), sh.Cells(2, 38), sh.Cells(2, 47), sh.Cells(2, 56), sh.Cells(2, 65), sh.Cells(2, 74))
   Set unionrange = Union(marange1, marange2)
 
    unionrange.Select
 
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = _
        "=('j=1,2mm'!R2C2,'j=1,2mm'!R2C11,'j=1,2mm'!R2C20,'j=1,2mm'!R2C29,'j=1,2mm'!R2C38,'j=1,2mm'!R2C47,'j=1,2mm'!R2C56,'j=1,2mm'!R2C65,'j=1,2mm'!R2C74)"
    ActiveChart.SeriesCollection(1).Values = _
        "=('j=1,2mm'!R8C8,'j=1,2mm'!R8C17,'j=1,2mm'!R8C26,'j=1,2mm'!R8C35,'j=1,2mm'!R8C44,'j=1,2mm'!R8C53,'j=1,2mm'!R8C62,'j=1,2mm'!R8C71,'j=1,2mm'!R8C80)"
    ActiveChart.SeriesCollection(1).name = ""
    ActiveChart.Location Where:=xlLocationAsObject, name:="j=1,2mm"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
End With
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=4 _
        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _
        False).Select
    ActiveChart.Legend.Select
le truc c que je veux faire une boucle pour effectueer ce graph sur un grand nombre de lignes et donc que veux definir mes cellules de définitions avec des i et j
je suis en def L1C1
j'ai commencé à définir des ranges mais j'arrive pas à changer les def absolue de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ActiveChart.SeriesCollection(1).XValues = _
        "=('j=1,2mm'!R2C2,'j=1,2mm'!R2C11,'j=1,2mm'!R2C20,'j=1,2mm'!R2C29,'j=1,2mm'!R2C38,'j=1,2mm'!R2C47,'j=1,2mm'!R2C56,'j=1,2mm'!R2C65,'j=1,2mm'!R2C74)"
    ActiveChart.SeriesCollection(1).Values = _
        "=('j=1,2mm'!R8C8,'j=1,2mm'!R8C17,'j=1,2mm'!R8C26,'j=1,2mm'!R8C35,'j=1,2mm'!R8C44,'j=1,2mm'!R8C53,'j=1,2mm'!R8C62,'j=1,2mm'!R8C71,'j=1,2mm'!R8C80)"
est-ce quelqu'un aurait une idée ?
merci
rémi