aide macro poue effacer une image

young 25 · 2 Février 2012

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 · 2 Février 2012

Re : aide macro poue effacer une image

Bonjour,

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

Code:

Feuil1.Shapes(1).Delete

bonne journée
@+

DoubleZero · 2 Février 2012

Re : aide macro poue effacer une image

Bonjour, young 25, Pierrot , le Forum,

A tester :

Code:

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 · 2 Février 2012

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+

aide macro poue effacer une image

young 25

XLDnaute Junior

Pièces jointes

Pierrot93

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

young 25

XLDnaute Junior

Discussions similaires