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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
'-------------------------------------------------
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 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
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
'-------------------------------------------------
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