Discussion :

[Nico13]

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

[Hagendorf]

Bonjour,


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

Code :

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

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 :

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

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

[Nico13]

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

Code :

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

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

[Hagendorf]

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 ?