Précédent   Forum du club des développeurs et IT Pro > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 21/03/2012, 15h05   #1
victoires
Membre à l'essai
 
Homme
Développeur Web
Inscription : mai 2011
Messages : 80
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Développeur Web

Informations forums :
Inscription : mai 2011
Messages : 80
Points : 22
Points : 22
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
victoires est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/03/2012, 21h07   #2
BlueMonkey
Membre Expert
 
Homme
Inscription : décembre 2011
Messages : 726
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : décembre 2011
Messages : 726
Points : 1 371
Points : 1 371
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
BlueMonkey est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/03/2012, 10h38   #3
victoires
Membre à l'essai
 
Homme
Développeur Web
Inscription : mai 2011
Messages : 80
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Développeur Web

Informations forums :
Inscription : mai 2011
Messages : 80
Points : 22
Points : 22
Bonjour,

Merci bcp

Bonne journée
victoires est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 13h55.


 
 
 
 
Partenaires

Hébergement Web