Discussion :

[buhrne]

Bonjour,
Voilà j'aimerais dans un graphique existant créer une nouvelle série avec comme plage de données une plage variable.
J'ai réussi à définir cette plage mais avec mon code il ne veut pas me l'intégrer dans ma série, il me met : erreur d'éxécution '1004' , La méthode 'SeriesCollection'de l'objet '_Chart' a échoué.

Voici le 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
 
Sub limites()
 
Dim nbsondes As Integer
Dim debut_max, fin_max
Dim plagemax As Range
Dim nbligne
 
nbsondes = Sheets("liste").Range("B1").Value
nbligne = Sheets("DONNEES BRUTES").Range("B65536").End(xlUp).Row
debut_max = Sheets("DONNEES BRUTES").Cells(6, nbsondes + 10).Address
fin_max = Sheets("DONNEES BRUTES").Cells(nbligne, nbsondes + 10).Address
Set plagemax = Range(debut_max & ":" & fin_max)
 
plagemax.Select
Charts("GRAPHIQUE").Activate
 
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(nbsondes + 2).Values = plagemax
    ActiveChart.SeriesCollection(nbsondes + 2).Name = "=""TOLERANCE MAX"""
    ActiveChart.Legend.LegendEntries(nbsondes + 2).LegendKey.Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
       .MarkerBackgroundColorIndex = xlNone
       .MarkerForegroundColorIndex = xlNone
       .MarkerStyle = xlNone
       .Smooth = False
       .MarkerSize = 3
       .Shadow = False
    End With
End Sub

Help.

[buhrne]

Bon ben merci à tous pour l'ensemble de vos réponses
Bah, en fait c'est pas plus mal, ça m'a permis de me creuser un peu les méninges pour résoudre tout seul comme un grand mon pb.

A+