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 modifier tous les "name" des "hyperlink"

modifier tous les "name" des "hyperlink"

3 réponses
Avatar
JP FAYE
Bonjour à tous,

Je voudrais par macro la valeur du "name" de tous les hyperlink d'une
feuille en fonction de ce que j'y trouvé


Une macro de ce genre :

Set liens = objWorkSheet.Hyperlinks
For Each p in liens l
if p.name ="quelquechose" then
p.name = "autre chose"
end if
Next
________________________

Merci d'avance pourvotre aide
Signaler un problème avec ce contenu

3 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
isabelle
bonjour JP,

Sub hpl()
For Each hp In ActiveSheet.Hyperlinks
x = hp.TextToDisplay
If x = "zaza1" Then hp.TextToDisplay = "zaza2"
Next
End Sub

isabelle

Bonjour à tous,

Je voudrais par macro la valeur du "name" de tous les hyperlink d'une
feuille en fonction de ce que j'y trouvé


Une macro de ce genre :

Set liens = objWorkSheet.Hyperlinks
For Each p in liens l
if p.name ="quelquechose" then
p.name = "autre chose"
end if
Next
________________________

Merci d'avance pourvotre aide


Avatar
JP Faye
Merci , celà m'a bien éclairé .

Je mets une autre question sur les hyperlink

jean-patrick


bonjour JP,

Sub hpl()
For Each hp In ActiveSheet.Hyperlinks
x = hp.TextToDisplay
If x = "zaza1" Then hp.TextToDisplay = "zaza2"
Next
End Sub

isabelle

Bonjour à tous,

Je voudrais par macro la valeur du "name" de tous les hyperlink d'une
feuille en fonction de ce que j'y trouvé


Une macro de ce genre :

Set liens = objWorkSheet.Hyperlinks
For Each p in liens l
if p.name ="quelquechose" then
p.name = "autre chose"
end if
Next
________________________

Merci d'avance pourvotre aide





Avatar
JP Faye
Merci pour cette réponse, je poste une autre question sur les hyperlink

Jean-patrick


bonjour JP,

Sub hpl()
For Each hp In ActiveSheet.Hyperlinks
x = hp.TextToDisplay
If x = "zaza1" Then hp.TextToDisplay = "zaza2"
Next
End Sub

isabelle

Bonjour à tous,

Je voudrais par macro la valeur du "name" de tous les hyperlink d'une
feuille en fonction de ce que j'y trouvé


Une macro de ce genre :

Set liens = objWorkSheet.Hyperlinks
For Each p in liens l
if p.name ="quelquechose" then
p.name = "autre chose"
end if
Next
________________________

Merci d'avance pourvotre aide