Suppr image

Bonjour à tous,

J'ai un document avec plusieurs images dans des cellules.

J'aimerais supprimer les images qu'il y a dans ces cellules, plus spécifiquement il y a douze cellules.

Je n'ai jusqu'ici trouvé des codes qui suppriment tous les shapes de la feuille or j'ai des boutons que je ne veux pas supprimer.

Auriez-vous un code qui me permet de vider ces cellules des shapes ? Mais pas du contenu car les mêmes cellules contienne aussi du texte.

Merci d'avance pour l'intérêt que vous porterez à mon post.

Cordialement,

Momochi

Bonjour Momochi,

Est-ce possible pour toi de nous envoyer le document avec ces images ?

A mon avis ce ne sont pas des shapes si elles sont dans des cellules.

Bonjour Momochi,

Tu peux peut-être essayer ceci :

'Efface les shapes de la cellule active

Sub EffaceMentShapeCelluleActive()
  For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, ActiveCell) Is Nothing Then s.Delete
 Next s
End Sub

Cordialement,

Julien.

Bonjour,

Ca a l'air de bien marcher Julien.

Merci à vous deux.

Toute bonne journée à vous deux.