Lien hypertextes automatiques

[Seb]

Bonjour a tous,

Voici mon petit problème de liens hypertextes :

En colonne A, j'ai une liste de référence de produits.
Ces produits sont visibles sur internet, avec une adresse du type :
http://lesite.com/images/'_ref_du_produit

Je pourrais écrire tous les liens hypertextes à la main, main j'ai un bon millier de produits...

Mon idée était donc d'écrire dans la cellule B2 la formule =concatener('http://lesite.com/images/';A2) et de recopier cette formule dans les cellules suivantes, afin d'avoir le bon lien pour toutes mes réf.

J'ai bien le bon texte, mais pas en format hypertexte...

Quelqu'un aurait il une astuce pour transformer tous ces textes en lien hypertextes ?

Merci d'avance et bonne journée à tous !!!

Sébastien

 

[myDearFriend!]

Bonsoir Seb,

Soit une feuille nommée 'Feuil1', des noms de référence produits en colonne A (à partir de A2) et la 'racine' du lien à appliquer 'http://lesite.com/images/'. Tu peux essayer de lancer cette procédure :

Sub CreerLiens()
Dim L As Long
      With Sheets('Feuil1')
            For L = 2 To .Range('A65536').End(xlUp).Row
                  If .Cells(L, 1).Value <> '' Then
                        .Hyperlinks.Add Anchor:=.Cells(L, 2), _
                              Address:='http://lesite.com/images/' & CStr(.Cells(L, 1).Value), _
                              TextToDisplay:=CStr(.Cells(L, 1).Value)
                  End If
            Next L
      End With
End Sub

Cordialement,

 

[Tibo]

Salut Seb, Didier, le Forum,

Il existe également une fonction intitulée LIEN.HYPERTEXTE

D'après l'aide XL, elle devrait correspondre également à ta demande.


Bonne soirée


@+

 

[JeanMarie]

Bonsoir Seb, Didier

Essaye ceci, mais une solution en formule.
=LIEN_HYPERTEXTE('http://lesite.com/images/'&A2)

@+Jean-Marie

PS: Salut Tibo, excuse pour le télescopage

Message édité par: JeanMarie, à: 11/10/2005 19:10