akhlan
XLDnaute Nouveau
Hello,
Dans un classeur, j'ai sur une feuille "Export_Serveurs", une colonne "H" contenant un liste de noms (avec doublons) et sur une seconde feuille "URL_Notes", une colonne "C" avec ces mêmes noms mais formatés en liens hypertexte (un par nom).
Je voudrais que les noms de la colonne "H" prennent la valeur de la colonne "C", c'est à dire que les différents noms se transforment en liens hypertexte via une boucle ou autre (les différentes colonnes peuvent parfois être vides).
Pour le moment sur ma feuille "URL_Notes", j'ai cette macro:
Dim lig As Long, DerLig As Long
Sub Macro1()
DerLig = Sheets("URL_Notes").Range("A65536").End(xlUp).Row
For lig = 2 To DerLig
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & lig), Address:=Range("B" & lig).Value, TextToDisplay _
:=Range("A" & lig).Value
Next lig
End Sub
qui me permet de concaténer le nom (colonne A) et l'url (colonne B) afin de créer la colonne C
Vous auriez une idée pour m'aider ?
Akhlan
Dans un classeur, j'ai sur une feuille "Export_Serveurs", une colonne "H" contenant un liste de noms (avec doublons) et sur une seconde feuille "URL_Notes", une colonne "C" avec ces mêmes noms mais formatés en liens hypertexte (un par nom).
Je voudrais que les noms de la colonne "H" prennent la valeur de la colonne "C", c'est à dire que les différents noms se transforment en liens hypertexte via une boucle ou autre (les différentes colonnes peuvent parfois être vides).
Pour le moment sur ma feuille "URL_Notes", j'ai cette macro:
Dim lig As Long, DerLig As Long
Sub Macro1()
DerLig = Sheets("URL_Notes").Range("A65536").End(xlUp).Row
For lig = 2 To DerLig
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & lig), Address:=Range("B" & lig).Value, TextToDisplay _
:=Range("A" & lig).Value
Next lig
End Sub
qui me permet de concaténer le nom (colonne A) et l'url (colonne B) afin de créer la colonne C
Vous auriez une idée pour m'aider ?
Akhlan