Suppression image collée

Bonjour à toutes et à tous,

J'ai créer une macro qui, quand elle s'exécute insère une image sur une cellule. ( cette image est en fait un copier/coller en tant qu'image de 5 cellules A1:E1 d'une autre feuille ).
Voici mon problème :
Quand je lance à nouveau ma macro, je veux effacer tout le contenu de la feuille avant de la reproduire avec de nouvelles données. Mais, l'image collée précédemment reste et se positionne en première ligne ( au moment où la macro s' éxécute de nouveau ).
Ma question est donc la suivante : COMMENT EFFACER TOUT LE CONTENU D'UNE FEUILLE ( IMAGE COMPRIS ) ?

Peut-être que si l'image était liée à une cellule cela serait possible ? mais dans ce cas là, comment lier une image à une cellule ?

Merci d'avance.

NOVICE72

Bonjour,

Une image est un "Shape" donc, tu parcours la collection et tu supprimes :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub EffacerImage()   Dim S As Shape   For Each S In ActiveSheet.Shapes S.Delete Next S   End Sub

---

Bonjour Theze
Tu célèbres la fête du travail de cette manière (en faisant le grand ménage) ?:D

La collection Shapes est vaste ... et inclut beaucoup de "petites" choses qui ne seront plus là ... ;)

Je te laisse compléter et corriger ...

A Novice72 : attends prudemment que Theze corrige.

Merci Theze,
Je viens d'inclure ces quelques lignes de programme dans le mien et ça fonctionne à merveille.

Encore Merci,

NOVICE72

Citation:

---

Je viens d'inclure ces quelques lignes de programme dans le mien et ça fonctionne à merveille.

---

Ouille Ouille Ouille ....
Tu as mis en RESOLU mais reviens lire la correction qu'apportera certainement Theze.
Le code que tu as copié/collé (tel quel) ne fait aucun dégât actuellement, mais pourra en faire de jolis si, faisant évoluer ta feuille, tu y ajoutes un jour par exemple un bouton de commande, etc ...

Salut.

Ne serait-il pas plus simple d'avoir une feuille modèle contenant tout ce qui est générique, de supprimer celle que tu ne veux plus et de repartir d'une copie du modèle?

Cela étant, si ce problème est lié à ton autre question sur la création d'une feuille par élève, je te conseille de revoir la conception de ton classeur...

Bonjour tout le monde,

désolé pour le retard :(

Hello unparia :D

moi quand on me dit :

Citation:

---

COMMENT EFFACER TOUT LE CONTENU D'UNE FEUILLE ( IMAGE COMPRIS ) ?

---

je fais le grand ménage de printemps :D