Discussion :

[Gibé2201]

Bonjour à tous,
En cette forte chaleur mes neurones fonctionnent au ralenti alors je viens chercher un peu d'aide.
Voià mon pb :
Je souhaite automatiser via un bouton la suprpession d'une image d'une feuille de calcul.
Le Hic, c'est que la feuille contient plusieurs images.
Les macro que j'ai trouvé ou bricolé ci et là ne me permettent que de supprimer l'ensemble des images de la feuille, alors que je n'en vise qu'une seule..
Auriez vous la solution ?
Merci à tous de votre aide..

[Bear the french]

Bonjour Gibé2201,

Pour cibler une seule image, il faut avoir au minimum son nom.
Quel nom porte ton image ? Ce nom évolue-t-il ? Si oui, sur quelle base ?

Bertrand

[Gibé2201]

Merci Bertrand,
C'est bien ce que je me disais
Alors en fait j'ai une macro qui copie l'image souhaitée (en fonction d'un critère définie dans la feulle excel) sur une zone. La macro va chercher l'image sur un onglet qui est masqué pour l'utilisateur. Il y a une image par onglet (plus simple à gérer pour moi, ce sont des copies de graphs minitab)
Chaque image s'appelle "object 1" dans les onglets "bibliothèque". Mais dés que la macro copie colle l'image, l'image change de nom (le compteur s'incrémente à chaque essai, ou à chaque copie d'image)..
La solution est elle de nommer chaque image dans les feuilles par un nom spécifique (genre boite1, boite2...) ?
Je ne sais pas si je suis trés clair...

[Bear the french]

Sur chaque feuille, si tu veux supprimer la dernière image insérée, tu peux essayer ça... Un exemple avec la feuille 1 :

Code :

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

1
2
3
4
5
Sub Macropourjerome()
With Worksheets("Feuil1")
    .Shapes.Range(Array(.Shapes(.Shapes.Count).Name)).Delete
End With
End Sub

Sinon la solution de nommer chaque image dans les feuilles par un nom spécifique (au moment de sa copie par exemple) me parait une bonne idée.
Exemple avec le nom "boite1"

Code :

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

1
2
3
4
5
Sub Macropourjerome2()
With Worksheets("Feuil1")
    .Shapes.Range(Array("boite1")).Delete
End With
End Sub

Bertrand

[Gibé2201]

merci Bertrand
J'ai testé la 1ère méthode, ça marche
En fait pour être plus précis l'utilisateur choisit une valeur dans la feuille ou doit venir se coller l'image
En fonction de la valeur choisie, la macro active la feuille où est rangée l'image correspondante, sélectionne l'image, la copie, retourne sur la feuille de l'utilisateur, colle l'image copiée et remasque la feuille où est rangée l'image.
Ce que je cherchais à faire, c'est effacer l'image du dernier utilisateur pour que le nouveau puisse en coller une nouvelle en fonction de la valeur choisie.
J'ai donc testé la 1ère méthode, ça marche, sauf que chose bizarre, une fois la macro exécutée, je n'ai plus accés à ma liste de choix (le choix se fait par liste déroulante alimentée via "données ==> validation"
Bizarre bizarre...

[Gioge]

Sinon la solution de nommer chaque image dans les feuilles par un nom spécifique (au moment de sa copie par exemple) me parait une bonne idée.
Exemple avec le nom "boite1"

Code :

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

1
2
3
4
5
Sub Macropourjerome2()
With Worksheets("Feuil1")
    .Shapes.Range(Array("boite1")).Delete
End With
End Sub

Bertrand

Salut le deuxième code est bien pour moi, sauf que dans mon cas les images sont presentes ou pas presente, et je veux que le code le detecte, si les images sont presentes alors il applique ce code, il supprime l'image que si elle est presente.
Ici comme l'image n'est pas presente, le code fait une erreur.

Merci de m'aider