Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel excel modifier texte a afficher par son lien

excel modifier texte a afficher par son lien

8 réponses
Avatar
nadine-inf
Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce problème.
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce probl ème.


Avatar
nadine-inf
Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez vous me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce problème.


Avatar
JB
B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas com ment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez vou s me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce probl ème.




Avatar
FxM
Dessiner un bouton


Jacques,

Cites tes sources : Le petit Prince de St Exupery
Ok, trop tôt, je sors :o)

@+
FxM





B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez vous me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce problème.







Avatar
nadine-inf
Merci beaucoup JB, je vais voir de suite ...


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

Dessiner un bouton


Jacques,

Cites tes sources : Le petit Prince de St Exupery
Ok, trop tôt, je sors :o)

@+
FxM





B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez vous
me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un
exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce
problème.









Avatar
nadine-inf
merci, j'ai fait +eurs essais mais ça marche pas.
sûrement que j'ai mal manipulé la macro (faut dire que j'ai jamais utilisé
de macro dans Excel)

merci en tout cas pour votre disponibilité.


"nadine-inf" a écrit dans le message de news:

Merci beaucoup JB, je vais voir de suite ...


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

Dessiner un bouton


Jacques,

Cites tes sources : Le petit Prince de St Exupery
Ok, trop tôt, je sors :o)

@+
FxM





B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez
vous me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un
exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce
problème.













Avatar
FxM
Bonjour,

Pourrais-tu mettre un exemple de fichier sur cjoint.com ?

Merci et @+
FxM


merci, j'ai fait +eurs essais mais ça marche pas.
sûrement que j'ai mal manipulé la macro (faut dire que j'ai jamais utilisé
de macro dans Excel)

merci en tout cas pour votre disponibilité.


"nadine-inf" a écrit dans le message de news:

Merci beaucoup JB, je vais voir de suite ...


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

Dessiner un bouton
Jacques,


Cites tes sources : Le petit Prince de St Exupery
Ok, trop tôt, je sors :o)

@+
FxM





B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez
vous me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un
exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce
problème.















Avatar
nadine-inf
Ouuuuuuuuuuf, j'ai trouvé, c'est bon encore une fois merci pour votre aide.



"FxM" a écrit dans le message de news:
a1d22$44e98a67$599f3478$
Bonjour,

Pourrais-tu mettre un exemple de fichier sur cjoint.com ?

Merci et @+
FxM


merci, j'ai fait +eurs essais mais ça marche pas.
sûrement que j'ai mal manipulé la macro (faut dire que j'ai jamais
utilisé de macro dans Excel)

merci en tout cas pour votre disponibilité.


"nadine-inf" a écrit dans le message de news:

Merci beaucoup JB, je vais voir de suite ...


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

Dessiner un bouton
Jacques,


Cites tes sources : Le petit Prince de St Exupery
Ok, trop tôt, je sors :o)

@+
FxM





B C
1 Liens Nouveau texte
2 Cegos Cegos
3 Google Google


-Alt+F11 pour basculer en VBA
-Insertion/Module

'--- liens en colonne B à partir de B2. Nouveau texte en colonne C
Sub essai()
Range("B2").Select
Do While ActiveCell <> ""
ActiveCell.Hyperlinks(1).TextToDisplay = ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

-Pour créer un bouton:

Affichage/BO Formulaires
Dessiner un bouton et affecter la macro

http://cjoint.com/?iuf1y55Ih3

JB



Merci beaucoup,

visiblement il s'agit d'une macro à écrire en visuel basic non !!!
si c'est le cas je suis pas très doué pour ça et je ne sais pas
comment
faire.
si qcq'1 ou JB (si t'auras l'occasion de repasser par là ) pourriez
vous me
dire un peu + en 2 lignes comment faire.
ou est-ce qu'il faut écrire ce prgm sous Excel et comment l'appeler
merci beaucoup

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

Bonjour,

h.name donne le texte du lien.
h.Address donne le lien

For Each h In ActiveSheet.Hyperlinks ' collection des liens
h.TextToDisplay = h.Name & "xxxx" ' ajoute xxxx à tous les
liens de la feuille
Next h

Cordialement JB



Bonjour,

Peut-on modifier le texte a afficher par son lien (automatisation
pour
plusieurs liens)

je pose la question car j'ai plusieurs lien du type (je donne un
exemple
banal)

texte affiché
http://site.fr/comme...exte/

son lien correspondant
http://site.fr/comment_afficher_le_texte/



et comme ceci j'en ai 700 liens

vraiment vous me rendrez un grand service s'il ya solution à ce
problème.