Bonjour,

J'ai fait un macro qui me trace des graphes de manière automatique et je voudrais faire un zoom à la demande
j'entends par là que je renseigne dans un message box le début de mon tracé et le nombre de points
mais j'ai un message me disant que "le nombre de points pour une série est de 32,000..." donc je n'ai pas mon tracé et pourtant je mets moins de 15000 points donc je n vois pas le pb
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 mess2()
    Dim value1 As Long
    Dim value2 As Long
    Select Case MsgBox("Voulez-vous entrer le nombres de points", vbYesNo, "Titre de la MsgBox")
        Case vbYes
            'remplissez les champs , débuts et nombre de points
            ' MsgBox ("Entrer vos nouveaux paramètres:")
            value1 = Application.InputBox(prompt:="Entrez le point d'entrée", Type:=1)
            value2 = Application.InputBox(prompt:="Entrez le nombre de points", Type:=1)
            Call AddChartObject1(value1, value2)
        Case vbNo
                'tracer les graphes
            Graphe (6)
 
    End Select
End Sub
 
 
Sub AddChartObject1(n As Long, m As Long)
On Error GoTo err_valid
 With ActiveSheet
 
    .Shapes.AddChart(Left:=50, Width:=700, Top:=20, Height:=175).Select
 
       With ActiveChart
        .ChartType = xlColumnClustered
        .SeriesCollection(1).Name = "De" & n & m
        .SeriesCollection(1).Values = "=" & "DATA" & "!$B$" & n & ":$B$" & m + n & ""
' DATA represente la feuille ou se trouve mes valeurs 
       End With
 
End With
Exit Sub
err_valid:
MsgBox Err.Description
End Sub
je vous repercie si vous avez des idées