function lien hyper Texte

[don julio]

Bonjour je cherche a créer une Function pour créer un lien hypertexte.

Mon lien Hypertexte est toujours le meme; a une execption près: la référence qui se trouve juste a coté.

Pour etre plus compréhensible je vous laisse un exemple en PJ.

Merci d'avance.

Don julio

 

[pierrejean]

Re : function lien hyper Texte

Bonjour don julio

Teste:

For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
MsgBox ("oui")
  ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & n), Address:= _
   "http://iwww.pia-facts.ikea.com/Pages/PIAFacts.aspx?item_no=" & Range("A" & n).Value & "&lang_code=fr&cty_code=FR&ParentItem=&ItemAdd=0"
Next

 

[don julio]

Re : function lien hyper Texte

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.

Merci d'avance

Don Julio

 

[Juls]

Re : function lien hyper Texte

Bonjour tout le monde,

Pourquoi ne pas passer simplement par une formule et une petite liste déroulante?
ci joint:

 

[don julio]

Re : function lien hyper Texte

Super

Merci de vos 2 réponses;

Je m'en suis sorti avec !!!



Bonne fin de journée

Don julio

 

[pierrejean]

Re : function lien hyper Texte

Re

A tester:

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