Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

liens dans un tableau

2 réponses
Avatar
AlainL
Bonjour,
Dans une des colonnes d'un tableau j'ai des adresses de fichiers htm.
Mais elles ne sont pas considérées comme des liens.
Comment faire pour transformer ces simples données en liens hypertextes
(d'un seul coup, si possible, il y a 500 lignes !)
Merci
alainL

2 réponses

Avatar
News.aioe.org
Bonjour,
Essaie comme ceci. Tu copies ce qui suit dans un module standard.
Adapte la macro selon ton environnement.
'-------------------------------------------------
Sub test()
Dim C As Range
'Adapter le nom de la feuille et l'adresse de la plage
'de cellules à traiter.
With Worksheets("Feuil1")
For Each C In .Range("A1:A" & _
.Range("A" & .Rows.Count).End(xlUp).Row).Cells
If C <> "" Then
C.Hyperlinks.Add Anchor:=C, Address:=C.Text, ScreenTip:=C.Text
End If
Next
End With
End Sub
'-------------------------------------------------
MichD
Avatar
AlainL
Le 06/08/2017 à 13:20, News.aioe.org a écrit :
Bonjour,
Essaie comme ceci. Tu copies ce qui suit dans un module standard.
Adapte la macro selon ton environnement.
'-------------------------------------------------
Sub test()
Dim C As Range
'Adapter le nom de la feuille et l'adresse de la plage
'de cellules à traiter.
With Worksheets("Feuil1")
For Each C In .Range("A1:A" & _
.Range("A" & .Rows.Count).End(xlUp).Row).Cells
If C <> "" Then
C.Hyperlinks.Add Anchor:=C, Address:=C.Text, ScreenTip:=C.Text
End If
Next
End With
End Sub
'-------------------------------------------------
MichD

Impec ! Merci
Bonne soirée
alainL