+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Nouveau Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : mai 2011
    Messages : 94
    Points : 25
    Points
    25

    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 Expert
    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 483
    Points
    2 483

    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 :
    =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 :
    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
    Nouveau Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : mai 2011
    Messages : 94
    Points : 25
    Points
    25

    Par défaut

    Bonjour,

    Merci bcp

    Bonne journée

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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •