supprimer la dernière image

[romss82]

bonjour je cherche à supprimer la dernière image de mon tableau j'ai trouvé le code ci dessous mais il me supprime toutes les images

pouvez vous m'aider

Dim image As Shape
For Each image In ActiveSheet.Shapes
If image.Type = msoPicture Then image.Delete
Next image

 

[Pierrot93]

Re : supprimer la dernière image

Bonjour,

si tu n'as que des images sur ta feuille et pas d'autre objet :

Option Explicit
Sub test()
With ActiveSheet
    .Shapes (.Shapes.Count).delete
End With
End Sub

bon après midi
@+

 

[romss82]

Re : supprimer la dernière image

non en fait j'ai aussi des bouton pour activer des macro et tout un tableau

en fait je souhaite supprimer la dernière image de ma feuille

 

[Pierrot93]

Re : supprimer la dernière image

Re,

essaye ceci alors :

Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
    If image.Type = msoPicture Then Set s = image
Next image
s.Delete
End Sub

 

[Pierrot93]

Re : supprimer la dernière image

Re,

peut être rajouté un test :

Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
    If image.Type = msoPicture Then Set s = image
Next image
If Not s Is Nothing Then s.Delete
End Sub

 

[job75]

Re : supprimer la dernière image

Bonjour romss82, Pierrot,

Le tableau commençant en A1, si l'on désire supprimer l'objet qui se trouve sur la dernière ligne en colonne B :

Sub Sup()
Dim deb As Range, a$, s As Shape
Set deb = [A1] 'début du tableau, à adapter
a = deb.End(xlDown)(, 2).Address
For Each s In ActiveSheet.Shapes
  If s.TopLeftCell.Address = a Then s.Delete: Exit Sub
Next
End Sub

A+