Afficher lien hypertexte

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel 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

3 réponses

1 2

jps

14/08/2007 à 14:55

à qui le dis-tu, daniel!!!!!
jps

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

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

Daniel

14/08/2007 à 15:05

C'est parce que, dans ta sélection, tu as des cellules sans hyperliens.
Essaie donc :

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

Daniel
"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

Laure

14/08/2007 à 15:11

Voilà !!! Ca marche !!!
Merci beaucoup à tous, ça m'a fait gagner beauoup de temps ;-)))

Laure

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

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

1 2

Afficher lien hypertexte

3 réponses

Veuillez sélectionner un problème