XL 2019 Souci avec la création d'un lien hypertexte

[mike888]

Salut !

Je suis occupé à essayer de créer via VBA un lien hypertexte, et je dois dire que je ne m'en sors pas...

Voici le code en question :

ActiveSheet.Hyperlinks.Add Anchor:=cel.Offset(0, i).Address, Address:="", SubAddress:="Feuil2!" & cherch.Address, ScreenTip:=cel.Offset(0, i).Value, TextToDisplay:=cel.Offset(0, i).Value

Quand j'affiche les valeurs, voilà ce que ça donne :

MsgBox cel.Offset(0, i).Address & Chr(13) & Chr(10) & "Feuil2!" & cherch.Address & Chr(13) & Chr(10) & cel.Offset(0, i).Value

Et ce qui est bizarre, c'est que quand j'introduis les valeurs directement, là, ça fonctionne !

ActiveSheet.Hyperlinks.Add Anchor:=Range("$m$4"), Address:="", SubAddress:="Feuil2!$c$2096", ScreenTip:="140", TextToDisplay:="140"

Si vous voyez ce qui cloche, merci d'avance pour votre aide ! 😉

 

[job75]

Bonjour mike888, bienvenue sur XLD,

Et ce qui est bizarre, c'est que quand j'introduis les valeurs directement, là, ça fonctionne !

Rien de bizarre, le dernier code est correct, le 1er non, l'argument Anchor doit être un Range, pas un texte.

A+

 

[mike888]

Merci pour le conseil !

Voilà la ligne correcte :

    ActiveSheet.Hyperlinks.Add Anchor:=Range(cel.Offset(0, i).Address), Address:="", SubAddress:="Feuil2!" & cherch.Address, ScreenTip:=CStr(cel.Offset(0, i).Value), TextToDisplay:=CStr(cel.Offset(0, i).Value)

 

[job75]

Bah au lieu de Anchor:=Range(cel.Offset(0, i).Address) écrivez Anchor:=cel.Offset(0, i)