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 194
Messages
2 086 071
Membres
103 110
dernier inscrit
Privé