malouve
Messages postés56Date d'inscriptionmardi 5 juin 2007StatutMembreDernière intervention20 juillet 2010
-
27 août 2009 à 14:20
Bonjour,
j'ai une macro qui lance des graphes à la demande ( par un bouton)
mais lorsque je lance la macro à partir de la seconde fois, j'ai un message (paramètre invalide ) , ne n'est pas une erreur , je ne comprends pas pourquoi j'ai ce message.
Merci pour vos idées car je sèche un peu
Voici le code utilisé,
' m et n désigne mes paramètres entrés au clavier
Sub AddChartObject1(n As Long, m As Long)
Dim SC As Series
On Error GoTo err_valid
' feuille ou il y a les données
Sheets("DATA").Select
With ActiveSheet
.Shapes.AddChart.Select
With ActiveChart
' en faisant du pas à pas , c'est ici que j'ai le message à partir du second clic sur mon bouton
.ChartType = xlColumnClustered
.SeriesCollection(1).Name = "De " & n & " A " & m + n
.SeriesCollection(1).Values = "=" & "DATA" & "!$B$" & n & ":$B$" & m + n & ""
'.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100#, 100#).Select
'Selection.Characters.Text = "zoom à la demande"
End With
For Each SC In ActiveChart.SeriesCollection
If SC.Name <> ActiveChart.SeriesCollection(1).Name Then
SC.Delete
End If
Next SC
End With
Exit Sub
err_valid:
MsgBox Err.Description
End Sub