liens dans un tableau

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
News.aioe.org
Le #26441398
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
AlainL
Le #26441427
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
Publicité
Poster une réponse
Anonyme