Verifier - Shapes - Hyperlink - Delete

Bonjour,

J'ai plusieurs boutons avec ou sans lien (Hyperlink)

J'aimerais vérifier via VBA si il y a un lien si c'est le cas je voudrais supprimer ce lien

Mon petit essai fonctionne si il y a un lien mais si il n'y en a pas il me fait une erreur "Erreur définie par l'application ou par l'objet"

Il y aurait moyen de faire autrement ? sans passer par le "On error resume next" ?

Merci pour votre aide

A = ActiveSheet.Shapes("MonBouton").Hyperlink.Address
If A = "" Then
MsgBox "Vide"
Else
MsgBox "Plein"
ActiveSheet.Shapes("MonBouton").Hyperlink.Delete
End If

Salut Jefekoi

C'est normal, il faut utiliser la redirection d'erreur

Sub TestHyperLink()
  Dim Shp As Shape
  With ActiveSheet
    For Each Shp In .Shapes
      ' En cas d'erreur
      On Error Resume Next
      If Shp.Hyperlink.SubAddress = "" Then
        MsgBox "Vide"
      Else
        MsgBox "Plein"
        Shp.Hyperlink.Delete
      End If
      On Error GoTo 0
    Next Shp
  End With
End Sub

A+

Merci Bruno, c'est parfais, je me doutais un peu qu'il n'y avait pas le choix ;)