Forum Discussion

Marie_MG's avatar
Marie_MG
Copper Contributor
May 27, 2020

Liens hypertextes

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 

excel

3 Replies

  • Jos_Woolley's avatar
    Jos_Woolley
    Iron Contributor
    May 27, 2020

    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

Resources