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éation des liens automatiques macro


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2011
    Messages
    97
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2011
    Messages : 97
    Points : 57
    Points
    57
    Par défaut création des liens automatiques macro
    Bonjour, tout le monde

    En fait, je voulais vous demandez si quelqu'un peut m'aider à écrire un petit macro pour Excel car moi je ne sais pas comment faire.

    j'ai les cellules d'une colonne qui contiennent des liens non activés (texte), et j'aimerais un petit macro qui fait de sorte que quand je exécute remplace tout les valeurs par des liens qui pointe vers le même contenu de la cellule
    Exemple : cellule H2 www.google.fr => après l'exécution du macro ça reste www.google.fr mais qui est un lien qui pointe sur le site google bien évidament

    Merci beaucoup pour l'aide

    Bonne soirée

  2. #2
    Membre émérite
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 1 186
    Points : 2 502
    Points
    2 502
    Par défaut
    Bonsoir,

    Normalement il n'y a pas besoin de macro pour créer un lien hypertexte à partir d'un texte.
    En formule, il suffit d'écrire la formule :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =LIEN_HYPERTEXTE(<la cellule contenant le texte>)
    .

    Sinon en utilisant une macro qui transforme un texte en lien, à partir du texte contenu dans la cellule. (pour l'exemple à partir de la cellule A21).
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim premiereLigne As Long
    premiereLigne = 21
    Dim r As Range
    For Each r In Range("A" & premiereLigne & ":A" & Range("A" & Rows.Count).End(xlUp).Row)
        r.Hyperlinks.Add r, r.Value
    Next

  3. #3
    Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2011
    Messages
    97
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2011
    Messages : 97
    Points : 57
    Points
    57
    Par défaut
    Bonjour,

    Merci bcp

    Bonne journée

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

Discussions similaires

  1. Création de liens automatiques
    Par Munkey74 dans le forum Web
    Réponses: 22
    Dernier message: 09/08/2007, 17h07
  2. [FTP] Qui a le scrit pour créer des liens automatiques ?
    Par JackBeauregard dans le forum Langage
    Réponses: 4
    Dernier message: 03/07/2006, 20h37
  3. Réponses: 5
    Dernier message: 24/01/2006, 01h16
  4. créer des liens automatiquement mais sans boucle
    Par psychoBob dans le forum Langage
    Réponses: 8
    Dernier message: 15/12/2005, 15h20
  5. [Tableaux] Création de lien automatique
    Par GarGamel55 dans le forum Langage
    Réponses: 3
    Dernier message: 17/09/2005, 17h26

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