Discussion :

[oscar.cesar]

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

[ouskel'n'or]

Et si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activesheet.Image1.Picture.Delete

Pas testé
Tu dis
A+

[oscar.cesar]

desole ouskel'n'or
idem
j'ai le message d'erreur sur cette ligne
erreur execution 438 proriete non geree par l'objet

[ouskel'n'or]

As-tu essayé avec Shapes(N°de l'objet) ?
Sinon, joins ton fichier avec la feuille concernée qu'on puisse tester
A+

[oscar.cesar]

bon ok voila le fichier

merci d'avance

[ouskel'n'or]

Tu aurais pu me donner le nom de la procédure... Enfin, j'ai cherché parmi tes 275 procédures et j'ai trouvé
Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
        Dim sh As Shape
        For Each sh In Worksheets("Feuil1").Shapes
            If sh.Type = 13 Then sh.Delete
        Next
End Sub

Souvent, d'une version à l'autre le paramètre change de dénomination. Pour récupérer son N°, tu peux le retrouver en affichant son N°.
Dans ton cas, j'ai testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox sh.type

Tu dis
A+