Problème suppression image

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:

---

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:

---

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:D

Bonjour,


Avec le premier code tu peux mettre dans cette ligne l'argumentde shapes en variable.

Code:

---

1 2 3

ActiveSheet.Shapes("Picture 187").Select Selection.Delete

---

Si tui fais une boucle par exemple tu cela te donnera qque chose du genre

Code:

---

1 2 3 4 5 6 7 8 9

sub detruire dim i as integer for i=1 to 4   ActiveSheet.Shapes("Picture " & cstr (186+i)).Select '186 Puisque apparament tu cherche les image de 187 à 190 Selection.Delete next end sub

---

Ca ne fonctionne toujours pas,
Voici le code que j'ai entré dans ma sub:

Code:

---

1 2 3 4 5

For z = 1 To 100000 ActiveSheet.Shapes("Picture " & CStr(0 + z)).Select Selection.Delete Next

---

Et voila le message d'erreur qui m'est renvoyé: "l'élément portant ce nom est introuvable"


Merci

Bonjour,


Cette erreur est tu sûr que test images s'appellent "Picture " suivi de la valeur de la variable. De plus je ne comprends pas pourqoui tu met (0+z).

Si tu as des images dont le nom commence par 0 il faut mettre "Picture 0" & cstr(z) sinon le 0 n'apparait pas dans le calcul. Enfin toutes images avec le code que je t'ai donné doivent s'appelé "Picture 1", "Picture 2" etc... Il ne doit pas y avoir de "trous"

Est le cas ?