Supprimer images dans colonne active

Bonjour,

je dois supprimer toutes les images qui se trouvent sur une colonne bien précise, pour cela la cellule active détermine la colonne: ActiveCell.EntireColumn.Select par exemple.

J'ai ce code qui fonctionne très bien mais pour toute la feuille, auriez_vous une idée pour l'adapter ?

Merci d'avance

Private Sub CommandButton3_Click()

Dim Sh As Worksheet, S As Shape

For Each Sh In Worksheets

For Each S In Sh.Shapes

If TypeName(S.OLEFormat.Object) = "Picture" Then

S.Delete

End If

Next

Next

End Sub

Bonjour

Ce qui m'inquiète un peu c'est que tu vas effacer les images des autre feuilles dans la colonne de la cellule active de la page du bouton

Mais c'est peut-être ce que tu veux

Il faut le coin supérieur gauche dans la colonne

Pas de fichier pas de test

Option Explicit

Private Sub CommandButton3_Click()
Dim Sh As Worksheet, S As Shape

  For Each Sh In Worksheets
    For Each S In Sh.Shapes
      If TypeName(S.OLEFormat.Object) = "Picture" Then
        If S.TopLeftCell.Column = ActiveCell.Column Then
          S.Delete
        End If
      End If
    Next S
  Next Sh
End Sub

Merci !!!!

Mais effectivement, je n'avais pas vu le résultat sur les autres feuilles, je ne souhaite pas les effacer, si vous avez la solution (j'abuse..)

ce serais super

Bonjour

Si tu ne veux les effacer, il faut supprimer la boucle qui passe en revue les feuilles

et modifier la boucle qui passe en revue les images

Option Explicit

Private Sub CommandButton3_Click()
Dim S As Shape

  For Each S In ActiveSheet.Shapes
    If TypeName(S.OLEFormat.Object) = "Picture" Then
      If S.TopLeftCell.Column = ActiveCell.Column Then
        S.Delete
      End If
    End If
  Next S
End Sub

Merci Banzai64

Ça marche super

Tu es un chef !!!