macro pour liens hypertextes

Bonjour,
je me demandais s'il était possible de créer une macro permettant de créer un lien hypertexte dans une cellule contenant du texte et dont l'adresse du lien se trouve dans la cellule juste en-dessous ? Mes tentatives avec mes pauvres compétences dans le domaine sont restées sans effet. (excel 2007)

Bonsoir.

Oui, possible et assez simple.
Suggestion : tu mets l'enregistreur de macro en route, et tu fais l'opération à la main.
Pour cela, écris le texte que tu souhaites dans la cellule. Tu t'assures que cette cellule est sélectionnée et menu Insertion/Lien hypertexte. Tu renseignes convenablement la fenêtre et tu valides.

EN espérant que cela t'aide,

PGZ

Bonjour,

Pour aller un peu plus loin, le code pourrait ressembler à cela :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Dim cible As String Dim lien As String lien = Range("a1").Value cible = Range("a2").Value Range("a1").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=cible, _ TextToDisplay:=lien End Sub

---

Pour l'appliquer sur plusieurs cellules, il faudrait créer une boucle.

Une autre méthode serait d'utiliser la fonction LIEN_HYPERTEXTE() mais elle devra être utilisée dans une troisième cellule si tu veux utiliser la cellule contenant du texte comme libellé de ton lien. L'intérêt de cette fonction est de ne pas passer par le code et de pouvoir la recopier facilement.

@pgz : j'avais déjà essayé, mais sans succès
@ouisansdoute : c'est cela en gros, mais comment remplacer a1 par la case que l'on sélectionne (passage en mode relatif donc) ?

ça y'est j'ai trouvé. Le code devient donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro2() ' ' Macro2 Macro ' ' Touche de raccourci du clavier: Ctrl+t ' Dim cible As String Dim lien As String lien = ActiveCell.Value cible = ActiveCell.Offset(1, 0).Value ActiveCell.Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=cible, _ TextToDisplay:=lien End Sub

---

merci de votre aide, c'est plus clair maintenant

Pour compléter ma réponse sur la fonction LIEN_HYPERTEXTE(), si ton intitulé est en A2 et ta cible en A3, tu peux en A1 saisir

Code:

---

=LIEN_HYPERTEXTE(A3;A2)

---

Puis dérouler la formule

merci, mais au final j'ai exactement le code qu'il me fallait, tout baigne :king: