Microsoft 365 Transformer une liste d'URL en format Hypertexte

[ChantalTreize]

Bonjour tout le monde.
J'ai reçu un listing avec 2500 adresse URL
le souci c'est qu'elle ne sont pas en lien hypertexte
Si je je prends le premier et je vais dans la barre de formule je fais entrée ça me la valide
mais y a t'il un moyen pour faire tout le listing d'un seul coup (listing ci-joint)
Par avance merci
Chantal

 

[ChTi160]

Bonjour Chantal
en faisant une recherche sur Internet ;
texte de la recherche

transformer adresse url en lien hypertext vba

j'ai trouvé ceci qui semble fonctionner
voir Ici :Lien vers :
le code testé à adapter :

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Bonne journée

jean marie

 

[sylvanu]

Bonjour Chantal, ChTi,
Un essai en PJ avec :

Sub ConvertHyperText()
Dim DL%, L%, tablo
Application.ScreenUpdating = False
DL = Range("B65500").End(xlUp).Row                  ' Dernière ligne du tableau
With Sheets("Listing URL")
   For L = 3 To DL                                  ' Pour chaque ligne
    tablo = Split(.Cells(L, "B"), "/")              ' Split du lien pour récupérer le nom
    Nom = Mid(tablo(4), 1, Len(tablo(4)) - 4)       ' Nom du lien ( nom de l'image moins .jpg )
        ActiveSheet.Hyperlinks.Add Anchor:=.Cells(L, "C"), Address:= _
        .Cells(L, "B"), TextToDisplay:=Nom          ' Insertion nom fichier en lien hypertexte
   Next L
End With
End Sub

Les liens sont mis en colonne C.

 

[fanch55]

Bonjour à tous,
Le plus court

Sub Hyp()
    Rows("3:" & Cells(Rows.Count, "B").End(xlUp).Row).Columns("B").Style = "Hyperlink"
End Sub