Bonjour,

Je cherche a supprimer certaines images dont je connais le nom, mais elle sont aléatoirement presente, parfois elles sont présentes sur le fichier, parfois elles ne le sont pas.

Si j'utilise un code bête et mechant, le code bug en me disant que le nom n'existe pas,
Si vous pouvez m'aider

J'ai essayé plusieurs codes, le dernier que je trouve logique pour moi est celui ci mais il ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 		Sub effacer_images()
    With Worksheets("calcul")
        Dim image As Shape
 
        For Each image In ActiveSheet.Shapes
            If image.Name = "img1" Then
                .Shapes.Range(Array("img1")).Delete
 
            ElseIf image.Name = "img2" Then
 
                .Shapes.Range(Array("img2")).Delete
 
            ElseIf image.Name = "img3"Then
                .Shapes.Range(Array("img3")).Delete
 
            ElseIf image.Name = "img4" Then
                .Shapes.Range(Array("img4")).Delete
'(etc)
 
            End If
 
        Next
    End With