Supprimer la même image pour toute les feuilles du classeur

Bonjour,

Voici une macro réalisée avec l'enregistreur de macro:

Sub Macro1()

'

' Macro1 Macro

'

'

Sheets("Feuil1").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

Sheets("Feuil2").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

Sheets("Feuil3").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

Sheets("Feuil4").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

Sheets("Feuil5").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

Sheets("Feuil6").Select

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.Delete

End Sub

Elle s'arrêt à la 6eme feuille alors que souhaiterai quelle continu jusqu'à la dernière feuille du classeur, il y en a une centaine. Il me faut donc une macro de répétition qui dit: Pour chaque feuille du classeur, supprime l'image.

Quelqu'un peut il m'aider ?

Cordialement

Bonjour,

Tu peux tester le code suivant ...

Sub Supprim()
On Error Resume Next
  For Each sh In ActiveWorkbook.Worksheets
     For Each pic In sh.Shapes
      If pic.Name = "Picture 1" Then pic.Delete
     Next pic
  Next sh
End Sub

En espèrant que cela t'aide ...

Bonjour,

Bonjour James007,

Une autre...

Public Sub Clear_Images()
Dim ws As Worksheet, shp As Shape
    For Each ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Set shp = ws.Shapes("Image 1")
        On Error GoTo 0
        If Not shp Is Nothing Then
            shp.Delete
            Set Rng = Nothing
        End If
    Next ws
End Sub

Pour une raison que j'ignore, cela ne marche pas. J'ai fais un petit fichier excel avec un exemple. Je souhaiterai que le logo MTO eurogem disparaisse pour toute les feuilles du classeur.

Re,

Remplace "Image 1" par "Image 2" dans ma procédure, ou "Picture 1" par "Image 2" dans la procédure de James007.

Cdlt.

Merci. C'est exactement ce qu'il me fallait. J'utilise juste l'enregistrement de la macro pour identifier le numéro de la photo et après je l'a remplace dans vos macros.

Cordialement

Re,

Nous te remercions ... de tes remerciements ...