Suppression image collée

**Novice72** · 01/05/2017, 00h06

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

**Theze** · 01/05/2017, 08h02

Bonjour,

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

Code :

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

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

**unparia** · 01/05/2017, 08h20

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

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.

**Novice72** · 01/05/2017, 08h30

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

Encore Merci,

NOVICE72

**unparia** · 01/05/2017, 08h34

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 ...

**Pierre Fauconnier** · 01/05/2017, 10h32

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...