Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Transformer une liste d'URL en format Hypertexte

ChantalTreize

XLDnaute Occasionnel
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
 

Pièces jointes

  • Listing URL.xlsx
    40.9 KB · Affichages: 12

ChTi160

XLDnaute Barbatruc
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 :
VB:
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Chantal, ChTi,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • Listing URL.xlsm
    131.8 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…