Problème VBA

Bonjour j'ai un petit soucis,

Je fais un dessin sous excel, grace à une macro , je supprime le dessin grace à une macro!

Si j'active la macro effacer alors qu'il n'y a pas de dessin j'ai une erreur ...

Comment faire pour indiquer à la macro: s'il n'y a pas d'image alors ne pas effacer ou l'inverse si image effacer ...

ma macro effacer :

Sub effacer()

 ActiveSheet.Shapes("Group1").Select
 ActiveSheet.Shapes("Group1").Delete

End Sub

Bonjour,

un exemple (PS, cela permet de s'affranchir du nom du dessin)

Sub effacer()
If ActiveSheet.Shapes.Count > 0 Then
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next sh
End If
End Sub

Mais cela va supprimer tous tes dessins dans la feuille....

ca c'est un soucis car j'ai des boutons ....

Salut Felix,

Salutj2c,

Essaies avec ceci:

Sub effacer() 

  on error resume next
 ActiveSheet.Shapes("Group1").Select 
 ActiveSheet.Shapes("Group1").Delete 

End Sub 

Souri84

Re-,

dans ce cas, utilise :

On Error Resume Next
ActiveSheet.Shapes("Group1").Delete
On Error GoTo 0

Merci ca marche