Supprimer massivement du lien hypertexte

Bonjour,

J'ai une liste comportant une centaines de cellules contenant un lien hypertexte.

Savez vous comment supprimer tous ces liens en une seule fois, et non pas faire pour chaque cellule "supprimer le lien HT".

Merci pour votre aide.

Sub virehyper()
Dim c as range, monrange as range
Set monrange = ActiveSheet.Range("A1:ZZ500")
For Each c In monrange
c.Hyperlinks.Delete
Next
End Sub

Bonjour,

une autre solution sans boucle :

Option Explicit
Sub test()
With Sheets("Feuil1").Hyperlinks
    If .Count > 0 Then .Delete
End With
End Sub

bonne journée

@+

Ben c'est parfait tout ça!

Merci bien et bravo pour la rapidité de vos réponses.

A plus.

Rechercher des sujets similaires à "supprimer massivement lien hypertexte"