Supprimer massivement du lien hypertexte

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
hibou
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 3 février 2014
Version d'Excel : 2010 FR

Message par hibou » 20 mars 2014, 09:37

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.
E
EngueEngue
Membre impliqué
Membre impliqué
Messages : 1'493
Inscrit le : 12 décembre 2013
Version d'Excel : 2010

Message par EngueEngue » 20 mars 2014, 09:48

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
Avatar du membre
Pierrot93
Membre fidèle
Membre fidèle
Messages : 226
Inscrit le : 21 juillet 2009
Version d'Excel : 2003 FR

Message par Pierrot93 » 20 mars 2014, 09:56

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
@+
h
hibou
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 3 février 2014
Version d'Excel : 2010 FR

Message par hibou » 20 mars 2014, 10:48

Ben c'est parfait tout ça!
Merci bien et bravo pour la rapidité de vos réponses.

A plus.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message