comment transformer texte en lien hypertexte

jemmy1989 · 14 Novembre 2015

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 · 14 Novembre 2015

Re : comment transformer texte en lien hypertexte

Bonjour,

à tester et adapter de ton côté :

Code:

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 · 14 Novembre 2015

Re : comment transformer texte en lien hypertexte

bonsour®
dans le module de feuille :

VB:

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 · 14 Novembre 2015

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

comment transformer texte en lien hypertexte

jemmy1989

XLDnaute Nouveau

Pièces jointes

david84

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

jemmy1989

XLDnaute Nouveau

Discussions similaires