Retour en haut de page...

[toc toc]

Bonjour,

j'ai un petit problème d'ergonomie que je n'arrive pas à résoudre

Voilà, j'ai ce petit bout de code (ci-dessous) qui me change toutes les valeurs d'une colonne en liens hypertextes, le problème viens du fait que dès que je le lance j'arrive systematiquement sur la ligne 1000 ce qui est logique mais pas tès pratique.

J'aimerais qu'une fois la macro lancé et les lien crées ça me ramène en haut de mon classeur excel (et donc que ça m'évite de remonter sans arret toute la liste à chaques fois).

Dim Lien
    Selection.End(xlDown).Select
    fin = Selection.Row
    For i = 8 To 1000 
    Range("h" & i).Select
    Lien = Range("h" & i).Value
    If Lien = "" Then GoTo retour

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Blablabla" & Lien
retour:
    Next

Merci de votre aide .

 

[GPLIONEL]

Re : Retour en haut de page...

Bonjour toc toc

Tu peux peut-être rajouter dans ta macro à la fin :

Range("A1").select

ce qui t'amène à la première ligne de la feuille active

 

[Jiheme]

Re : Retour en haut de page...

Bonjour

Tu ajoute cela après le next :

Range("a1").Select

A+

Oups Slt GPlionel trop rapide pour moi!!!

 

[toc toc]

Re : Retour en haut de page...

Merci à vous deux d'avoir été aussi rapides

C'est parfait ^^.