Discussion :

[maternelle]

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)

[pgz]

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

[ouisansdoute]

Bonjour,

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

Code :

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

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.

[maternelle]

@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) ?

[maternelle]

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

Code :

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

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

[ouisansdoute]

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 :

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

=LIEN_HYPERTEXTE(A3;A2)

Puis dérouler la formule

[maternelle]

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