VBA: Problème d'affichage du texte d'un lien

Bonjour,

je créais des liens à partir de pseudo, du coup, ce dernier peut commencer par un signe mathématiques et c'est bien là mon soucis. Lorsque c'est le cas, la cellule où doit s’afficher le texte du lien (donc le pseudo) reste vide, enfin, aucun texte n'apparait alors que le lien fonctionne bien.

J'ai beau passer ma première ligne au format texte (c'est là que sont entreposés les liens) :

  Sh.Rows(1).NumberFormat = "@"

ou forcer la prise de mon pseudo en texte :

  PSeudo = CStr(mT_R(j).Cells(2).innerText)

rien n'y fait !

Auriez-vous une solution ?

Le lien est créait sous cette forme :

  Sh.Hyperlinks.Add Sh.Cells(1, iLaCol), "http://www.alfred" & PSeudo, , "http://www.alfred" & PSeudo, PSeudo

Bonjour,

Sans illustration sous forme de fichier... ?

Le format de cellule Texte n'est jamais une bonne solution.

Qu'est-ce que innerText ?

Le paramètre TextToDisplay n'est pas servi. Qu'en est-il si on le spécifie ?

Cordialement.

je récupère les pseudos sur une page internet d’où le ".innerText" et comme cela le laisse suggérer c'est déjà sous forme de texte donc mon forçage :

PSeudo = CStr(mT_R(j).Cells(2).innerText)

ne sert, à priori, à rien.

expression .Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

si tu préfères, cela donnerait :

 Sh.Hyperlinks.Add Anchor:= Sh.Cells(1, iLaCol) _ 
 Address:= "http://www.alfred" & PSeudo, _ 
 ScreenTip:= "http://www.alfred" & PSeudo, _ 
 TextToDisplay:= PSeudo

Donc un pseudo comme celui-ci "mika25" s'affiche correctement mais un autre sous cette forme "-play" ne s'affiche pas.

Tous les liens fonctionnent bien, toutes les info-bulles sont complètes (le pseudo apparaît bien à la fin) mais malheureusement ce n'est pas le cas pour certain TextToDisplay (le pseudo ici)

Aucune idée ?

C'est bel et bien le paramètres TextToDisplay qui pose problème puisqu'il ne prend pas pour texte, tout texte commençant par un signe mathématiques.