Modifier une peite macro de LL transformation texte en Hypertext.

Bonsoir,
En furetant dans les archives du groupe j'ai trouvé cette ligne de code
(de
Laurent.Longre) qui devrait bien me rendre service.

ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Text

Testé sur une cellule, cela transforme parfaitement bien le texte en lien
Hypertext.
Quelqu'un saurait-il l'adapter pour que cela s'applique à toute une plage
de
cellule.
Merci pour le coup de main.
Domi

Bonsoir Domi,
Un truc du genre ?

Sub Lien(Plage As Range)
Dim Cel As Range

For Each Cel In Plage
Cel.Hyperlinks.Add Cel, Cel.Text
Next Cel

Set Cel = Nothing
End Sub

Hervé.

"Domi" <scrat83@free.fr> a écrit dans le message de news:
OLgYStdIGHA.2036@TK2MSFTNGP14.phx.gbl...

Bonsoir,
En furetant dans les archives du groupe j'ai trouvé cette ligne de code
(de
Laurent.Longre) qui devrait bien me rendre service.

ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Text

Testé sur une cellule, cela transforme parfaitement bien le texte en
lien

Hypertext.
Quelqu'un saurait-il l'adapter pour que cela s'applique à toute une
plage

de
cellule.
Merci pour le coup de main.
Domi