Suppression d'une image d'après sa position

Bonsoir à toutes et tous,

Dans un fichier, se trouve plusieurs images dont je ne connais pas le nom.

J'aimerais dans un premier temps connaitre la position de l'image que je dois supprimer. Pour cela, il me faudrait un code qui trouverais la première image à gauche de la cellule active.

Dans un second temps, j'aimerais pouvoir à partir de sa position supprimer la dite image.

Merci d'avance ;)

Bonjour SOTIN,

Peut-être ainsi :

Sub Retirerimages()
    Dim Sh As Shape

    For Each Sh In ActiveSheet.Shapes
        If Sh.TopLeftCell.Column < 12 Then  ' 12 = "L"
            Sh.Delete
        End If
    Next Sh
End Sub

Bizz

Bonjour SOTIN,

Je n'avais pas lu la demande avec attention.

Or donc, une nouvelle version :

Sub Retirerimages()
    Dim Sh As Shape

    For Each Sh In ActiveSheet.Shapes
        If Sh.TopLeftCell.Column < ActiveCell.Column Then
            Sh.Delete
        End If
    Next Sh
End Sub

Bizz

bonjour SOTIN,Bizarre,

cela dépend des types d'images qui se trouvent sur votre feuille https://learn.microsoft.com/en-us/office/vba/api/office.msoshapetype

Certaines n'ont pas un "topleftcell" et causent une erreur, donc il faut vérifier le "type". Puis vous pouvez éventuellement ajouter le numéro du type au premier "Case"

Sub Retirerimages()
     Dim Sh    As Shape

     For Each Sh In ActiveSheet.Shapes
          Select Case Sh.Type
               Case 1, 13                    'autoshapes, pictures
                    If Sh.TopLeftCell.Column < ActiveCell.Column Then Sh.Delete
               Case Else                     'les autres
                    MsgBox Sh.Type 
                    msgbox Sh.TopLeftCell.Address
          End Select
     Next Sh
End Sub

Bonjour SOTIN ,

SOTIN a écrit :

la première image à gauche de la cellule active

Pouvez-vous préciser dans le fichier joint le nom de l'image qu'on supprimer si la cellule active est C2 ?

Re,

Tout d'abord, merci à tous pour votre aide.

mafraise, je ne sais pas quoi vous répondre car dans votre fichier, les images se superposent. alors que dans mon cas, elles seront toujours alignées horizontalement et espacé du même écart.

BsAlv, merci pour cette information que j'ignorai.

Bizarre, merci pour votre solution qui fonctionne à merveille.

Bonne journée à tous ;)

Re SOTIN ,

SOTION a écrit :

mafraise, je ne sais pas quoi vous répondre car dans votre fichier, les images se superposent. alors que dans mon cas, elles seront toujours alignées horizontalement et espacé du même écart

C'est pourquoi joindre un petit fichier représentatif est indispensable. Après 420 message, ce devrait être un principe acquis, non ?

Re,

Exact, je pensais l'avoir fait mais je me suis trompé.

@+