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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 ! 😉
 
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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
21
Affichages
2 K
Réponses
8
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…