Afficher lien hypertexte

13 réponses

Laure

14/08/2007 à 13:56

Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte un
lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

10 réponses

1 2

Daniel

14/08/2007 à 14:30

Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%

Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte
un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

jps

14/08/2007 à 14:32

bonjour laure,
au risque de faire râler rex encore une fois, tu as le nom et le lien dans
la même cellule ou bien?
jps

"Laure" a écrit dans le message de news:
%

Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte
un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

jps

14/08/2007 à 14:35

elle a dit "simple' la dame, daniel
jps

"Daniel" a écrit dans le message de news:
%

Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte
un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

Laure

14/08/2007 à 14:36

oui, dans la même cellule !
exemple dans ma cellule A1, j'ai "Dupond" qui s'affiche, et quand je clique
sur "Dupond" ça m'emmène sur http://www.dupond.com.

Laure

"jps" a écrit dans le message de news:

bonjour laure,
au risque de faire râler rex encore une fois, tu as le nom et le lien dans
la même cellule ou bien?
jps

"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte
un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

Laure

14/08/2007 à 14:40

Merci !

Lorsque j'exécute la macro j'ai un message d'erreur :
"Erreur d'exécution 9 - L'indice n'appartient pas à la sélection"

Coment puis-je corriger ? Ca dépasse mon niveau, là... :-)

"Daniel" a écrit dans le message de news:
%

Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte
un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

14/08/2007 à 14:42

Bonjour,

For Each h In ActiveSheet.Hyperlinks
h.TextToDisplay = h.Address
Next h

JB

On 14 août, 13:56, "Laure" wrote:

Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule comporte un
lien hyper texte.
Exemple :

Dupond (lien vershttp://www.dupond.com)
Durand (lien vershttp://www.durand.com)
Martin (lien vershttp://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vershttp://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

jps

14/08/2007 à 14:43

bien ce que je pensais.....
jps (un petit qui sait se mettre à la portée des autres petits)

"Laure" a écrit dans le message de news:
%

Merci !

Lorsque j'exécute la macro j'ai un message d'erreur :
"Erreur d'exécution 9 - L'indice n'appartient pas à la sélection"

Coment puis-je corriger ? Ca dépasse mon niveau, là... :-)

"Daniel" a écrit dans le message de news:
%
Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule
comporte un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

Daniel

14/08/2007 à 14:43

Salut jps.
Il y a des macros simples et des formules que je n'ai pas encore comprises
;-)))
Daniel
"jps" a écrit dans le message de news:
%23rrhd%

elle a dit "simple' la dame, daniel
jps

"Daniel" a écrit dans le message de news:
%
Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule
comporte un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

Laure

14/08/2007 à 14:44

Simple, ça va encore :-)
copier coller dans VBE et exécuter je sais faire, j'aurais pas pu l'écrire
toute seule par contre !! :-)))

Laure

_______________________________________
Princesse Hannah prend la pose sur :
Photos : http://lauri-net.spaces.live.com/photos/
Videos : http://www.dailymotion.com/Laurinette/

"jps" a écrit dans le message de news:
%23rrhd%

elle a dit "simple' la dame, daniel
jps

"Daniel" a écrit dans le message de news:
%
Bonjour.
Sélectionne tes liens et exécute la macro :

Sub test()
Dim c As Range
For Each c In Selection
c = c.Hyperlinks(1).Address
Next c
End Sub

Cordialement.
Daniel
"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule
comporte un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

jps

14/08/2007 à 14:45

bonjour laure
alors tu peux peut-être utiliser Données/Convertir : ce doit être plus
simple qu'une macro qui te joue des tours lors de son exécution
jps

"Laure" a écrit dans le message de news:
%235Y43%

oui, dans la même cellule !
exemple dans ma cellule A1, j'ai "Dupond" qui s'affiche, et quand je
clique sur "Dupond" ça m'emmène sur http://www.dupond.com.

Laure

"jps" a écrit dans le message de news:

bonjour laure,
au risque de faire râler rex encore une fois, tu as le nom et le lien
dans la même cellule ou bien?
jps

"Laure" a écrit dans le message de news:
%
Bonjour !

J'ai un classeur excel avec une liste de noms, et chaque cellule
comporte un lien hyper texte.
Exemple :

Dupond (lien vers http://www.dupond.com)
Durand (lien vers http://www.durand.com)
Martin (lien vers http://www.martin.com)

Je souhaiterais remplacer le nom par le lien, c'est à dire
que la cellule qui affiche "Dupond" et pointe vers http://www.dupond.com
n'affiche plus "Dupond" mais "http://www.dupond.com"

Y a-t-il une manière simple de le faire ? La liste est longue...

Merci d'avance,

Cordialement

Laure

1 2

Afficher lien hypertexte

10 réponses

Veuillez sélectionner un problème