Bonjour,
J'ai fait une macro me permettant de tracer des graphiques de manière automatiques suivant toute ma plage de données maintenant je voudrais faire un "zoom à la demande". je m'explique:
-j'ai un text box qui me demande d'entrer le numéro de la cellule et le nombre de points que je veux tracer
mais lors de l'éxécution j'ai le message sur la nombre de points pour un graphe n'excède pas 32000, ....
et pourtant je m'arrange à ne pas dépasser plus de 10000 points car je veux faire un zoom
voici le code utilisé
la première procédure permet d'entrée le nombre de points et la numéro de la cellule de départ
la cellule procédure doit me permettre de tracer mon graphe
j'ai un tracé avec différente série qui ne corresponde pas à ma demande
"DATA" est la feuille qui contient les données ;
Merci pour vos idées
c'est assez urgent
J'ai fait une macro me permettant de tracer des graphiques de manière automatiques suivant toute ma plage de données maintenant je voudrais faire un "zoom à la demande". je m'explique:
-j'ai un text box qui me demande d'entrer le numéro de la cellule et le nombre de points que je veux tracer
mais lors de l'éxécution j'ai le message sur la nombre de points pour un graphe n'excède pas 32000, ....
et pourtant je m'arrange à ne pas dépasser plus de 10000 points car je veux faire un zoom
voici le code utilisé
la première procédure permet d'entrée le nombre de points et la numéro de la cellule de départ
la cellule procédure doit me permettre de tracer mon graphe
j'ai un tracé avec différente série qui ne corresponde pas à ma demande
Code:
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 = xlColumnStacked
.SeriesCollection(1).Name = "De" & n & m
.SeriesCollection(1).Values = "=" & "DATA" & "!$B$" & n & ":$B$" & m + n & ""
End With
End With
Exit Sub
err_valid:
MsgBox Err.Description
End Sub
"DATA" est la feuille qui contient les données ;
Merci pour vos idées
c'est assez urgent