lien hypertexte

[eymeric]

Bonjour,

je cherche à créer un lien hypertexte variable :
colonne b : des noms
colonne c : "liens" se rapportant aux noms de la colonne b !


Je vous ai mis un exemple....

merci d'avance

Eymeric

 

[Lupin]

Bonjour,

Sub Macro1()

Dim Valeur, Prefixe, Suffixe, Lien As String
Dim Boucle As Integer

Prefixe = "http://www.google.ca/search?hl=en&ie=UTF-8&q="
Suffixe = "&btnG=Google+Search&meta="

Range("C3").Select
For Boucle = 3 To 5
Range("C" & Boucle).Select
Valeur = ActiveCell.Offset(0, -1).Value
Lien = Prefixe & Valeur & Suffixe
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien, TextToDisplay:="Liens"
Next Boucle

End Sub

N.B. Attention aux accents dans la colonne B

Lupin

 

[eymeric]

merci, ça fonctionne. Mais juste pour mon info, comment dans ta macro, indiques-tu que les données sont en colonne B ?

merci

 

[eymeric]

petit pépin,
pour la plupart des valeurs, l'ouverture du lien ne se fait pas ou bien avec un délai incroyablement long !?
c'est normal à ton avis ?

merci encore