Bonjour Fresquie
Au moins dans les versions 2000 et plus, pour renvoyer sur des cellules ciblées dans la feuille active par lien hypertexte , une solution consiste à leur attribuer un nom à chacune par Insertion/Nom/définir puis d'insérer des liens vers ces noms définis.
Macro qui crée des liens en demandant les informations indispensables à l'utilisateur. Si cela peut t'aider ?
Sub CréationLiens()
Dim MyValue As String, Nom As String
Dim NbLiens As Byte
' Affiche le message pour demander la cellule cible.
MyValue = InputBox("Veuillez entrer la cellule (Ex : C7), svp !", _
"CELLULE CIBLE", "")
If MyValue = "" Then Exit Sub
NbLiens = ActiveSheet.Hyperlinks.Count + 1
Nom = "lien" & NbLiens
'Définition du nom de la cellule
ActiveWorkbook.Names.Add Name:=Nom, RefersToR1C1:=ActiveSheet.Range(MyValue)
' Affiche le message pour demander la cellule du lien hypertexte.
MyValue = InputBox("Veuillez entrer la cellule (Ex : C7), svp !", _
"CELLULE LIENHYPERTEXTE", "")
'Création du lien
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range(MyValue), Address:="", SubAddress:= _
Nom, TextToDisplay:=Nom
'Message du nombre de liens
MsgBox "Le nombre de liens hypertextes est de " & ActiveSheet.Hyperlinks.Count
End Sub
Cordialement
Bernard