Création Liens Hypertexte

[Esox]

Bonjour le forum,
Voilà, je souhaiterai créer des liens hypertexte par macro. Le texte du lien déterminer par le contenu d'une cellule (qui peut donc changer), le chemin du lien déterminer par le contenu d'une autre cellule(qui peut donc changer). Le nombres de création de lien (identiques) iraient se positionner en regard des cellules non vide d'une colonne.
J'ai joint un fichier exemple en espérant qu'il soit assez explicite.

C'est pour incrémenter chaque début de ligne par un numéro identique de commande, et ensuite en cliquant sur ce n° de commande ouvre la commande concernée.

Merci à vous du temps que vous pourrez me consacrer.

Stef...

 

[pierrejean]

Re : Création Liens Hypertexte

bonjor Esox

Sub liens()
    For n = 1 To Range("D65536").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & n), Address:=Range("H" & n), _
        TextToDisplay:=CStr(Range("A" & n))
    Next n
End Sub

 

[Esox]

Re : Création Liens Hypertexte

bonjour le forum, Pierre Jean,

désolé de répondre tardivement... merci, je pense que cela devrait le faire, il me reste plus qu'à l'adapter à mon appli...
merci encore...
stef.