Je voudrais obtenir le même résultat en passant par une Function:
ex: En B2 j'écrit =test(je selectionne la cellule qui contient la référence pour laquelle je veux créer le lien).
=test(A2)
et En B2 je retrouve mon lien HyperTexte.
Function PiaFact(cellule As Range)
ActiveSheet.Hyperlinks.Add Anchor:=cellule.Offset(0, 1), Address:= _
"http://iwww.pia-facts.ikea.com/Pages/PIAFacts.aspx?item_no=" & cellule.Value & "&lang_code=fr&cty_code=FR&ParentItem=&ItemAdd=0"
End Function