Discussion :

[Androquest]

Bonjour à tous !

Je cherche à créer des liens hypertexte sur des colonnes entières, sachant que j'ai déjà les adresses dans mes cellules, mais qu'elles apparaissent sous forme de texte et non de liens.

Existerait-il une macro, ou une astuce, qui pourrait m'aider à faire cela d'un coup, plutôt que de faire cellule par cellule ?

Merci d'avance pour votre aide !

[AlainTech]

Bonjour,

Un petit code vite fait en m'inspirant de l'enregistreur de macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub AddHyperLinks()
  Dim c As Range
  Dim r As Range
  Dim wksDest As Worksheet
 
  Set wksDest = ThisWorkbook.Sheets("Feuil1") ' Adapter le nom de feuille
  Set r = Range(wksDest.Cells(1, 1), wksDest.Cells(wksDest.Rows.Count, 1).End(xlUp))
  ' Suppose que les données à traiter sont en colonne 1
  For Each c In r
    wksDest.Hyperlinks.Add Anchor:=c, Address:=c.Text, TextToDisplay:=c.Text
  Next c
End Sub