comment transformer texte en lien hypertexte

[jemmy1989]

bonjour

j'ai une liste de liens internet mais en format texte donc pas cliquable, je voudrais une macro qui les transforme en lien cliquable, j'ai essayer la fonction -lien_hypertexte mais le probléme c'est qu'elle ne transforme pas la liste en question mais créer une deuxiéme liste
merci

voici une piece jointe exemple

 

[david84]

Re : comment transformer texte en lien hypertexte

Bonjour,

à tester et adapter de ton côté :

Sub test()
Dim R As Range, L As Range
Set R = Range("A2:A18")
For Each L In R
  L.Hyperlinks.Add L, L.Text
Next L
End Sub

A+

 

[Modeste geedee]

Re : comment transformer texte en lien hypertexte

bonsour®
dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 1 And Left(Target, 5) = "http:" Then
        ActiveWorkbook.FollowHyperlink Address:=Target.Text, NewWindow:=True
   End If
End Sub

 

[jemmy1989]

Re : comment transformer texte en lien hypertexte

les deux macros fonctionnent, l'une comme un module indépendant et l'autre relier à la feuille
je vous remercie