Dans une feuille, une colonne est remplie de liens=20
hypertextes du type :
C;\r=E9pertoire\fichier0001
chaque cellule renvoyant =E0 un fichier diff=E9rent=20
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule op=E9ration modifier TOUS les=20
liens hypertextes de cette colonne comme suit :
F:\r=E9pertoire\fichier0001
ou encore f:\autrer=E9pertoire\fichier0001, 0002, 0003, etc.
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
ChrisV
Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le message de news: 040301c3d7b7$e96a4a30$ Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 040301c3d7b7$e96a4a30$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le message de news: 040301c3d7b7$e96a4a30$ Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
Horace Rochat
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
Bonjour,
Pardon de n'avoir pas été assez clair.
Le problème est que le chagement doit se faire sur
l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule.
Merci
Horace Rochat
-----Message d'origine-----
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" <anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink()
Dim h As Hyperlink
Dim x
For Each h In Worksheets(1).Hyperlinks
x = h.Range.Address
h.SubAddress = "F" & Right(x, Len(x) - 1)
Next
End Sub
isabelle
Bonjour,
Pardon de n'avoir pas été assez clair.
Le problème est que le chagement doit se faire sur
l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule.
Merci
Horace Rochat
-----Message d'origine-----
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" <anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
isabelle
petite correction :
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Address h.Address = "D" & Right(x, Len(x) - 1) h.TextToDisplay = "D" & Right(x, Len(x) - 1) Next End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
petite correction :
Sub Modifier_SubAddress_des_Hyperlink()
Dim h As Hyperlink
Dim x
For Each h In Worksheets(1).Hyperlinks
x = h.Address
h.Address = "D" & Right(x, Len(x) - 1)
h.TextToDisplay = "D" & Right(x, Len(x) - 1)
Next
End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink()
Dim h As Hyperlink
Dim x
For Each h In Worksheets(1).Hyperlinks
x = h.Range.Address
h.SubAddress = "F" & Right(x, Len(x) - 1)
Next
End Sub
isabelle
Bonjour,
Pardon de n'avoir pas été assez clair.
Le problème est que le chagement doit se faire sur
l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule.
Merci
Horace Rochat
-----Message d'origine-----
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" <anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Address h.Address = "D" & Right(x, Len(x) - 1) h.TextToDisplay = "D" & Right(x, Len(x) - 1) Next End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003, etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
FxM
Bonjour,
Dans le module de feuille (à adapter) : Sub test() For Each hl In Hyperlinks valeur = Replace(hl.Address, "ancien", "nouveau") cellule = hl.Range().Address Range(cellule).ClearContents ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=valeur Next hl End Sub
@+ FxM
Horace Rochat wrote:
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
Bonjour,
Dans le module de feuille (à adapter) :
Sub test()
For Each hl In Hyperlinks
valeur = Replace(hl.Address, "ancien", "nouveau")
cellule = hl.Range().Address
Range(cellule).ClearContents
ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=valeur
Next hl
End Sub
@+
FxM
Horace Rochat wrote:
Bonjour,
Pardon de n'avoir pas été assez clair.
Le problème est que le chagement doit se faire sur
l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule.
Merci
Horace Rochat
-----Message d'origine-----
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" <anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
Dans le module de feuille (à adapter) : Sub test() For Each hl In Hyperlinks valeur = Replace(hl.Address, "ancien", "nouveau") cellule = hl.Range().Address Range(cellule).ClearContents ActiveSheet.Hyperlinks.Add Anchor:=Range(cellule), Address:=valeur Next hl End Sub
@+ FxM
Horace Rochat wrote:
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
Horace Rochat
Ça fonctionne! Merci Horace Rochat
-----Message d'origine----- petite correction :
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Address h.Address = "D" & Right(x, Len(x) - 1) h.TextToDisplay = "D" & Right(x, Len(x) - 1) Next End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a
écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
etc.
Est-ce possible? Et comment? Merci Horace Rochat
.
.
Ça fonctionne!
Merci
Horace Rochat
-----Message d'origine-----
petite correction :
Sub Modifier_SubAddress_des_Hyperlink()
Dim h As Hyperlink
Dim x
For Each h In Worksheets(1).Hyperlinks
x = h.Address
h.Address = "D" & Right(x, Len(x) - 1)
h.TextToDisplay = "D" & Right(x, Len(x) - 1)
Next
End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink()
Dim h As Hyperlink
Dim x
For Each h In Worksheets(1).Hyperlinks
x = h.Range.Address
h.SubAddress = "F" & Right(x, Len(x) - 1)
Next
End Sub
isabelle
Bonjour,
Pardon de n'avoir pas été assez clair.
Le problème est que le chagement doit se faire sur
l'adresse même du lien hypertexte et non pas sur le
texte
affiché dans la cellule.
Merci
Horace Rochat
-----Message d'origine-----
Bonjour Horace,
Sur la plage de cellules concernée, par les menus:
Edition/Remplacer
Rechercher: C:
Remplacer par: F:
puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat"
<anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 040301c3d7b7$e96a4a30
$a001280a@phx.gbl...
Bonjour,
Dans une feuille, une colonne est remplie de liens
hypertextes du type :
C;répertoirefichier0001
chaque cellule renvoyant à un fichier différent
(fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS
les
liens hypertextes de cette colonne comme suit :
F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002,
0003,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Address h.Address = "D" & Right(x, Len(x) - 1) h.TextToDisplay = "D" & Right(x, Len(x) - 1) Next End Sub
isabelle
bonjour Horace,
ne pas oublier d'adapter au nom de ta feuille,
Sub Modifier_SubAddress_des_Hyperlink() Dim h As Hyperlink Dim x For Each h In Worksheets(1).Hyperlinks x = h.Range.Address h.SubAddress = "F" & Right(x, Len(x) - 1) Next End Sub
isabelle
Bonjour, Pardon de n'avoir pas été assez clair. Le problème est que le chagement doit se faire sur l'adresse même du lien hypertexte et non pas sur le texte
affiché dans la cellule. Merci Horace Rochat
-----Message d'origine----- Bonjour Horace,
Sur la plage de cellules concernée, par les menus: Edition/Remplacer Rechercher: C: Remplacer par: F: puis Remplacer tout
idem pour remplacement du répertoire...
ChrisV
"Horace Rochat" a
écrit dans le
message de news: 040301c3d7b7$e96a4a30 $
Bonjour,
Dans une feuille, une colonne est remplie de liens hypertextes du type : C;répertoirefichier0001 chaque cellule renvoyant à un fichier différent (fichier0001, fichier0002, fichier0003, etc).
Je voudrais par une seule opération modifier TOUS les
liens hypertextes de cette colonne comme suit : F:répertoirefichier0001
ou encore f:autrerépertoirefichier0001, 0002, 0003,
