Macro pour lancer des graphes

Fermé
malouve Messages postés 56 Date d'inscription mardi 5 juin 2007 Statut Membre Dernière intervention 20 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
A voir également: