XL 2016 Copier en format hyperlien depuis textbox dans un Usefrorm

lolo62000

XLDnaute Junior
Bonjour,

j'ai un Userform qui me permet d'alimenter une base de données.
Une textbox dans ce formulaire sert à copier un lien hypertexte vers un fichier sauvegardé sur le réseau.
Or mon code Vba copie les valeurs de mes textbox en format texte uniquement.
Voici la partie de mon code censé copier mon hyperlien. Une petite idée de comment modifier cette partie pour que mon lien se mette automatiquement en format hyperlien dans la cellule de ma feuille de données?
Range("AQ" & L).Value = RFIlien (RFIlien est le nom de ma textbox)

Merci, car là je sèche...

Laurent.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Sinon vous pouvez essayer ça :
VB:
Cells(L, "AD").FormulaR1C1 = "=HYPERLINK(""" & RFIlien.Text & """)"
Ou bien ça :
VB:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(L, "AD"), Address:=RFIlien.Text, TextToDisplay:=RFIlien.Text
 

Discussions similaires

Statistiques des forums

Discussions
312 336
Messages
2 087 387
Membres
103 532
dernier inscrit
sdfrgthyjuki