Macro Lien hypertexte

Version imprimable

13/12/2012, 12h25
chtrousselle

1 pièce(s) jointe(s)

Macro Lien hypertexte

Bonjour,

Je souhaiterais automatiser via une macro la mise en place de lien hyper texte
sur une colonne entière

Exemple:
Si dans une cellule j'ai la valeur 0001 je voudrais la remplacer (soit dans la cellule courante soit dans une autre cellule) par http://www.exemple.fr/0001. Je souhaite faire ca sur chaque cellule d'une même colonne
J'y arrive via une formule mais pas avec une macro...

Votre aide est la bienvenue !
Merci d'avance

J'ai fourni un fichier en exemple

Bonjour,

Un truc du genre à adapter.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub creerLien()
 
Dim cpt_l As Integer
Dim lienAdresse As String, lienDefaut As String
 
lienDefaut = "http://www.exemple.fr/"
 
For cpt_l = 2 To 24
    If Sheets("Feuil1").Cells(cpt_l, 2).Value <> "" Then
        lienAdresse = lienDefaut & Sheets("Feuil1").Cells(cpt_l, 2).Value
        Sheets("Feuil1").Cells(cpt_l, 3).Select
        Sheets("Feuil1").Cells(cpt_l, 3).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=lienAdresse, TextToDisplay:=lienAdresse 'lien
    End If
Next cpt_l
 
End Sub

13/12/2012, 15h33
chtrousselle

Merci beaucoup ca fonctionne très bien