Création Liens Hypertexte

Esox · 28 Février 2010

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 · 28 Février 2010

Re : Création Liens Hypertexte

bonjor Esox

Code:

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 · 2 Mars 2010

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.

Création Liens Hypertexte

Esox

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Esox

XLDnaute Occasionnel

Discussions similaires

Création Liens Hypertexte

Esox

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Esox

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency