p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Nouveau Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    mai 2011
    Messages
    96
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : mai 2011
    Messages : 96
    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 485
    Points
    2 485

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

    Informations professionnelles :
    Activité : Développeur Web

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

    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 Fichiers
    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 Syntaxe
    Réponses: 8
    Dernier message: 15/12/2005, 15h20
  5. [Tableaux] Création de lien automatique
    Par GarGamel55 dans le forum Fonctions
    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