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

Guest

Pièces jointes

david84

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

jemmy1989

Guest

Discussions similaires

comment transformer texte en lien hypertexte

jemmy1989

Guest

Pièces jointes

david84

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

jemmy1989

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency