function lien hyper Texte

pierrejean

XLDnaute Barbatruc

• 4 Septembre 2014

• #2

Re : function lien hyper Texte

Bonjour don julio

Teste:

Code:

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

 

Vote positif 0 Vote négatif

D

don julio

XLDnaute Nouveau

• 4 Septembre 2014

• #3

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

 

Dernière édition: 4 Septembre 2014

Vote positif 0 Vote négatif

J

Juls

Guest

• 4 Septembre 2014

• #4

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:

 

Pièces jointes

• lien Piafact.xlsm

  17.5 KB · Affichages: 63
• lien Piafact.xlsm

  17.5 KB · Affichages: 71
• lien Piafact.xlsm

  17.5 KB · Affichages: 88

Vote positif 0 Vote négatif

D

don julio

XLDnaute Nouveau

• 4 Septembre 2014

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Septembre 2014

• #6

Re : function lien hyper Texte

Re

A tester:

Code:

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

 

Vote positif 0 Vote négatif