Discussion :

[dav81]

bonjour,
j'essaie de creer automatiquement dans une cellule un lien hypertexte correspondant a l'adresse de la cellule voisine (exemple adresse en A1 et lien à creer automatique en A2) .
Excell 2000 et VB6

probleme je n'arrive pas à le coder pour qu'il prenne les adresses de toute une colonne.

si qq'un avait un bout de code ou une idée.

merci d'avance.

[SilkyRoad]

bonjour

tu pourrais adapter ce type de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Cell As Range
Dim x As Integer
 
x = Worksheets(1).Range("A65536").End(xlUp).Row
 
For Each Cell In Worksheets(1).Range("A1:A" & x)
    Worksheets(1).Hyperlinks.Add Cell.Offset(0, 1), Cell
Next Cell

michel

[dav81]

merci pour ce code mais en fait il suffit de mettre dans la cellule excell
=LIEN_HYPERTExte(adresse,nom) et voila le tour est joué.

merci quan meme pour ta reponse.