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 :

lien hypertexte variable [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Inscrit en
    Août 2009
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Août 2009
    Messages : 7
    Par défaut lien hypertexte variable
    Salut à tous,

    J'essai de quelques heures maintenant sans succès ceci:

    je voudrais créer un lien hypertext avec les contenue de la cellule K2 me donnant le nom de la feuille du classeur concernant et la cellule K6 la cellule à sélectionner

    mon lien renverrais donc sur le même classeur exclusivement mais vers une autre feuille. L'idée étant d’atterrir au bon endroit directement sur la bonne feuille pour ne pas avoir à chercher.
    Mais je ne vois pas comment mettre des variables. voilà un de mes essais:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    For k = 6 To nbligne
    Sheets("TBD").Select
    FEUILLEACTION = Cells(k, 2).Value
    Cells(k, 5).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "sheets(FEUILLEACTION) " & Cells(k, 6).Value & "", TextToDisplay:=Cells(k, 4).Value
     
    Next k
    Peut être voyez vous un autre moyen de résoudre mon problème?

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    With Sheets("TBD")
          For k = 6 To Nbligne
                .Hyperlinks.Add Anchor:=.Cells(k, 5), Address:="", SubAddress:="'" _
                    & .Cells(k, 2).Value & "'!" & .Cells(k, 6).Value, _
                    TextToDisplay:=.Cells(k, 4).Value
          Next k
    End With

  3. #3
    Membre régulier
    Inscrit en
    Août 2009
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Août 2009
    Messages : 7
    Par défaut
    impeccable merci

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

Discussions similaires

  1. Copier cellule selon lien hypertexte variable
    Par myk636 dans le forum Excel
    Réponses: 2
    Dernier message: 11/05/2015, 16h02
  2. Liens hypertextes variables dans un publipostage
    Par barth95 dans le forum Word
    Réponses: 1
    Dernier message: 24/02/2014, 12h18
  3. [OL-2007] Lien Hypertext Variable d'environnement
    Par draco951 dans le forum Outlook
    Réponses: 5
    Dernier message: 01/11/2012, 09h35
  4. Lien hypertexte, variable JSP
    Par essaitiano dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 26/03/2012, 13h41
  5. Liens hypertextes variables
    Par Tranberdo dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 28/10/2004, 10h09

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