Bonjour,

Il y a 10 jours j'avais un problème pour intégrer une image dans un classeur excell. Maintenant que c'est résolu, j'ai un problème pour supprimer cette même image.

J'ai pour l'instant deux codes différents mais avec chacun un inconvénient:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Worksheets("Accueil").range("D23:G23").Select
    Selection.AutoFill Destination:=range("D23:G31"), Type:=xlFillDefault
    range("D23:G31").Select
 
 
 
ActiveSheet.Shapes("Picture 187").Select
    Selection.Delete
Celui ci ne fonctionne que pour l'image "Picture 187", sachant qu'à chaque fois que j'ajoute une image le numéro augmente. Donc ce code ne fonctionne que pour "Picture 187"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Worksheets("Accueil").range("D24").Select
 
    Selection.Delete
Celui ci supprime n'importe quelle image contenue dans la cellule, vu que c'est la cellule qui est supprimée, le problème c'est que ça me décalle toute la feuille.


Si quelqu'un a un solution?

Merci