Bonjour
deja essaie
Dim img As shape et puis un range n'a pas de membre ".shapes"
VB:
Dim img
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With
Bonsoir
supprimer toutes les images dans une feuille
ben c'est pas compliqué j'attire ton attention sur le "s" a pictures qui désigne la collection d'image de la feuille active dans cet exemple ci dessous
VB:
Sub DeleteAllPicture()
ActiveSheet.Pictures.Delete
End Sub
Bonjour
deja essaie
Dim img As shape et puis un range n'a pas de membre ".shapes"
VB:
Dim img
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With
Bonjour
deja essaie
Dim img As shape et puis un range n'a pas de membre ".shapes"
VB:
Dim img
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With