IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Créer un lien haut de page (TOP) [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre très actif
    Inscrit en
    Janvier 2013
    Messages
    149
    Détails du profil
    Informations forums :
    Inscription : Janvier 2013
    Messages : 149
    Par défaut Créer un lien haut de page (TOP)
    Bonsoir,

    J'utilise un long document articulé par des sections.
    Je souhaite savoir, comment pourrais-je, en cliquant sur mon lien, afficher la section souhaitée, en haut de page de l'écran !

    Actuellement, lorsque je clique, EXCEL me déplace bel et bien à la cellule de mon document, mais il se contente d'aller à la cellule. Moi, je souhaiterais qu'il y aille et m'affiche cette cellule là en haut de la page actuellement visualisée.

    Possible ?

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Tu peux t'inspirer du code ci dessous qui place la ligne de la cellule slectionnée en haut de page

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWindow.SmallScroll up:=ActiveCell.Row
    ActiveWindow.SmallScroll Down:=Target.Row - 1
    End Sub

  3. #3
    Membre très actif
    Inscrit en
    Janvier 2013
    Messages
    149
    Détails du profil
    Informations forums :
    Inscription : Janvier 2013
    Messages : 149
    Par défaut
    Merci beaucoup !

    Effectivement, ça marche très bien ! Néanmoins, ça marche aussi lorsque je clique n'importe où : ça me déplace la cellule cliquée vers le haut... Or, je souhaiterais le faire fonctionner uniquement en cliquant sur des liens hypertexte.

    Avez-vous une astuce pour limite ce bout de code fantastique ?

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Voici en changeant l’évènement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.SmallScroll up:=ActiveCell.Row
    ActiveWindow.SmallScroll Down:=ActiveCell.Row - 1
    End Sub

  5. #5
    Membre très actif
    Inscrit en
    Janvier 2013
    Messages
    149
    Détails du profil
    Informations forums :
    Inscription : Janvier 2013
    Messages : 149
    Par défaut
    C'est parfait ! Merci mile fois !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 10/06/2011, 12h00
  2. Créer in lien vers une page web
    Par demando77 dans le forum C#
    Réponses: 3
    Dernier message: 25/03/2008, 16h05
  3. [XHTML] Eviter un haut de page avec un lien vide
    Par qi9859 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 21/05/2007, 08h42
  4. Réponses: 8
    Dernier message: 07/05/2007, 15h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo