bonjour


dans le code suivant je voudrais effacer l'image du graph qui a été crée.
mais j'ai erreur renvoyé sur la derniere ligne du code

la derniere ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
'Image1.Picture.Delete 'efface l'image graphique

le code complet
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub CommandButton1_Click()
' creationGraphiqueParTableau()
 
    Dim i As Byte
    Dim Tableau(1 To 20) As Integer, Tableau2(1 To 10) As Integer
 
 
    ChartObjects.Delete 'efface la page graphique
    ActiveSheet.ChartObjects.Delete 'efface l'image graphique
 
    'Création du tableau pour les Abscisses
    For i = 1 To 20 'remplacer par N ou N est le nb des different gaint utiliser le nb de courses
        Tableau(i) = i * 2
    Next i
 
    'Création d'un tableau pour les Ordonnées
    For i = 1 To 10
        'Le tableau est rempli par des valeurs aléatoires pour
        'cet exemple
        Tableau2(i) = Int((50 * Rnd) + 1) 'à remplacer par la valeur de chaque gain
    Next i
 
    'Création graphique
    Charts.Add
    'Définit la localisation du graphique:
    'dans la feuille de calcul Feuil1 pour cet exemple
    ActiveChart.Location _
    Where:=xlLocationAsObject, Name:="Feuil1"
 
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = Tableau() 'Abscisses
        .SeriesCollection(1).Values = Tableau2() 'Ordonnées
        'Définit le type (Courbe)
        .ChartType = xlLine
    End With
 
ActiveSheet.ChartObjects(1).Name = "courbe gain"
 
     'copie le premier graphique de la feuille active dans le Presse-papiers
     'en tant qu'image, supprime le graphique puis colle l'image dans la feuille.
     With ActiveSheet 'feuille active
        .ChartObjects(1).CopyPicture 'copy l'image du graphe dans le presse papier
        .ChartObjects(1).Delete 'efface le graphique
        .Paste .Range("A25") 'copy l'image du graphe graphe dans la feuil active en cellule A25
 
    End With
 
 
Image1.Picture.Delete 'efface l'image graphique
 
End Sub