Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

mike888

XLDnaute Nouveau
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 :
Code:
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 :
Code:
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 !
Code:
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 !
 

mike888

XLDnaute Nouveau
Merci pour le conseil !

Voilà la ligne correcte :

VB:
    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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…