Incrementation des colonnes

Version imprimable

Voir 40 message(s) de cette discussion en une page

Ben il reste encode des ActiveChart ...supprime les tous et remplace les par gr ...

ensuite à chaque fois que tu utilise un objet range il faut préciser la feuille concernée ...

définit par exemple une variable workSheet ( sh) et utilise la pour préfixer tous tes range ...
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro3() Dim sh as workSheet set sh = thisworkbook.worksheets("Data") ' si toutes tes données sont bien sur cette feuille data '(...) j = sh.Range("C3") '(...) For I = 0 To sh.Range("C1") - 1 '(...) ET Sur le même principe tu préfixe tous tes Range...

Voila, j'ai remplacer tout les ActiveChart par les Gr et j'ai prefixer tout les ranges, mais j'ai toujours le meme soucis a savoir 1 graph sur deux ou il y a plusieurs courbes (la courbe souhaitée et la courbe du graph precedent). Encore merci de votre aide.

Code:

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
Sub Macro3()
 
Dim r As String
Dim j As String
Dim sh As Worksheet
 
 
 Set sh = ThisWorkbook.Worksheets("Data")
 
 
 
 
 
 
j = sh.Range("C3")
 
  Range("F1").Select
    For I = 0 To sh.Range("C1") - 1
 
 
 
         ThisWorkbook.Activate
         Application.ScreenUpdating = False
 
 
         Set Gr = ThisWorkbook.Charts.Add
 
 
With Gr
 
    Gr.ChartType = xlXYScatterLinesNoMarkers
    Gr.SeriesCollection.NewSeries
    Gr.SeriesCollection(1).XValues = "=Data!$B$6:$B$806"
 
 
 
 Gr.SeriesCollection(1).Values = "=Data!" & sh.Range("Data!$B$6:$B$806").Offset(, I + 1).Address
 
 
With Gr
 
        .HasTitle = True
        .ChartTitle.Characters.Text = "Sample " + j
         ActiveSheet.Name = "Sample " + j
         j = j + 1
 
 
        End With
 
 
 
End With
Next I
End Sub

j'ai un peu repris le code .. en effaçant les séries fonction de la sélection courante et générés automatiquement par excel lors de la création d'un graphe ...:

Code:

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 Macro3()
 
Dim r As String
Dim j As Integer ' POURQUOI STRING !!!!!!!!!!!!!!!!!!!!!
Dim sh As Worksheet
Dim Gr As Chart
Set sh = ThisWorkbook.Worksheets("Data")
j = sh.Range("C3")
For i = 0 To sh.Range("C1") - 1
    Application.ScreenUpdating = False
    Set Gr = ThisWorkbook.Charts.Add
 
 
    With Gr
        .ChartType = xlXYScatterLinesNoMarkers
 
        'EFFACE LES series existante----------
        While .SeriesCollection.Count > 0
         .SeriesCollection(1).Delete
        Wend
        '--------------------
 
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = "=Data!$B$6:$B$806"
        .SeriesCollection(1).Values = "=Data!" & sh.Range("Data!$B$6:$B$806").Offset(, i + 1).Address
        .HasTitle = True
        .ChartTitle.Characters.Text = "Sample " & j ' L'OPERATEUR DE CONCATENATION EST : &
        .Name = "Sample " & j
         j = j + 1
    End With
 
Next i
End Sub

15/10/2015, 09h41
floutz

Bonjour,
Merci beaucoup ca fonctionne!
15/10/2015, 11h40
SfJ5Rpw8

Citation:

Envoyé par floutz

Bonjour,
Merci beaucoup ca fonctionne!

bonjour,

ben alors actionne le bouton :resolu:

Voir 40 message(s) de cette discussion en une page