aide macro poue effacer une image

[young 25]

Bonjour

j'ai un fichier sur lequel j'ai crée une macro qui copie une image en feuil1 sur 5 autre feuille ; cette macro fonctionne.
Par contre je souhaite faire une macro qui efface les images des différentes feuilles.et celle ci ne fonctionne pas et je ne comprend pas pourquoi vu que c'est l'inverse et que la premiere fonctionne trés bien.

Je vous joins le fichier.

Merci d'avance de votre aide si possible
A+ et bonne journée

 

[Pierrot93]

Re : aide macro poue effacer une image

Bonjour,

en l'état ton code supprime une cellule pas une image.... regarde peut être ceci :

Feuil1.Shapes(1).Delete

bonne journée
@+

 

[DoubleZero]

Re : aide macro poue effacer une image

Bonjour, young 25, Pierrot , le Forum,

A tester :

Option Explicit

Sub Picture_1_supprimer()
Dim ws As Worksheet
Application.ScreenUpdating = 0
On Error Resume Next
For Each ws In Sheets
ws.DrawingObjects("Picture 1").Delete
Next
Application.ScreenUpdating = -1
End Sub

A bientôt

 

[young 25]

Re : aide macro poue effacer une image

re à tous et à toutes,

cela fonctionne très bien avec la propo de Pierrot.moi j'avais écrit ("Picture 1") encore une erreur de débutant

merci à vous et très bonne journée

A+