Liens hypertextes

Highlighted
New Contributor

Bonjour, 

J'ai un fichier Excel avec une colonne qui contient un lien hypertexte différent par cellule. Mais le lien est remplacé par un numéro d'id unique: F1270-001, 002...

Je souhaiterai remplacer ce texte par le l'adresse du lien. 
J'arrive à le faire case par case mais je ne trouve pas de solution pour le faire en masse sur 400 lignes. 

Quelqu'un a une solution? 

Merci 

3 Replies
Highlighted

@Marie_MG 

 

Hi,

 

Sub ChangeHyperlinks()

Dim MyRange As Range
Dim h As Hyperlink

Set MyRange = Worksheets("Sheet1").Range("A1:A100")

For Each h In MyRange.Hyperlinks
    h.TextToDisplay = h.Address
Next h

End Sub

 

Change sheet name and range as required.

 

Regards

Highlighted

@Jos_Woolley, thank you so much,

Have a good day

Highlighted

@Marie_MG 

 

You're welcome! A good day to you, too.