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
papou
Bonjour Agamemnom Avec cette macro par exemple qui supprime les liens sur toutes les feuilles du classeur actif Sub SupLesLiensTtesFeuilles() Dim i As Integer Dim Lien As Hyperlink For i = 1 To ActiveWorkbook.Worksheets.Count For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks Lien.Delete Next Lien Next i End Sub Cordialement Pascal
"Agamemnom" a écrit dans le message de news:2a0d01c3e1c6$e3cea210$ Bonjour, Je souhaiterai faire une suppression en masse de lien hypertexte. Quelqu'un a-t-il une solution à me proposer ? Merci
Bonjour Agamemnom
Avec cette macro par exemple qui supprime les liens sur toutes les feuilles
du classeur actif
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
Dim Lien As Hyperlink
For i = 1 To ActiveWorkbook.Worksheets.Count
For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks
Lien.Delete
Next Lien
Next i
End Sub
Cordialement
Pascal
"Agamemnom" <jerome.goudy@orange.fr> a écrit dans le message de
news:2a0d01c3e1c6$e3cea210$a301280a@phx.gbl...
Bonjour,
Je souhaiterai faire une suppression en masse de lien
hypertexte. Quelqu'un a-t-il une solution à me proposer ?
Merci
Bonjour Agamemnom Avec cette macro par exemple qui supprime les liens sur toutes les feuilles du classeur actif Sub SupLesLiensTtesFeuilles() Dim i As Integer Dim Lien As Hyperlink For i = 1 To ActiveWorkbook.Worksheets.Count For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks Lien.Delete Next Lien Next i End Sub Cordialement Pascal
"Agamemnom" a écrit dans le message de news:2a0d01c3e1c6$e3cea210$ Bonjour, Je souhaiterai faire une suppression en masse de lien hypertexte. Quelqu'un a-t-il une solution à me proposer ? Merci
Merci Pascal pour ta réactivité. Ca marche nickel. Je vais pouvoir partir en we de bonne heure grâce à toi. A charge de revanche (pas sûr que je puisse t'aider à koi ke ce soit) @+
-----Message d'origine----- Bonjour Agamemnom Avec cette macro par exemple qui supprime les liens sur toutes les feuilles
du classeur actif Sub SupLesLiensTtesFeuilles() Dim i As Integer Dim Lien As Hyperlink For i = 1 To ActiveWorkbook.Worksheets.Count For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks Lien.Delete Next Lien Next i End Sub Cordialement Pascal
"Agamemnom" a écrit dans le message de
news:2a0d01c3e1c6$e3cea210$ Bonjour, Je souhaiterai faire une suppression en masse de lien hypertexte. Quelqu'un a-t-il une solution à me proposer ? Merci
.
Merci Pascal pour ta réactivité.
Ca marche nickel. Je vais pouvoir partir en we de bonne
heure grâce à toi.
A charge de revanche (pas sûr que je puisse t'aider à koi
ke ce soit)
@+
-----Message d'origine-----
Bonjour Agamemnom
Avec cette macro par exemple qui supprime les liens sur
toutes les feuilles
du classeur actif
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
Dim Lien As Hyperlink
For i = 1 To ActiveWorkbook.Worksheets.Count
For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks
Lien.Delete
Next Lien
Next i
End Sub
Cordialement
Pascal
"Agamemnom" <jerome.goudy@orange.fr> a écrit dans le
message de
news:2a0d01c3e1c6$e3cea210$a301280a@phx.gbl...
Bonjour,
Je souhaiterai faire une suppression en masse de lien
hypertexte. Quelqu'un a-t-il une solution à me proposer ?
Merci
Merci Pascal pour ta réactivité. Ca marche nickel. Je vais pouvoir partir en we de bonne heure grâce à toi. A charge de revanche (pas sûr que je puisse t'aider à koi ke ce soit) @+
-----Message d'origine----- Bonjour Agamemnom Avec cette macro par exemple qui supprime les liens sur toutes les feuilles
du classeur actif Sub SupLesLiensTtesFeuilles() Dim i As Integer Dim Lien As Hyperlink For i = 1 To ActiveWorkbook.Worksheets.Count For Each Lien In ActiveWorkbook.Worksheets(i).Hyperlinks Lien.Delete Next Lien Next i End Sub Cordialement Pascal
"Agamemnom" a écrit dans le message de
news:2a0d01c3e1c6$e3cea210$ Bonjour, Je souhaiterai faire une suppression en masse de lien hypertexte. Quelqu'un a-t-il une solution à me proposer ? Merci
.
F. Gondard
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas.
Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un
lien sur deux.
Seule explication plausible : le fait de supprimer un lien change la valeur
d'index des suivants et le "next" fait sauter d'un cran.
Pour vraiment tout supprimer :
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0
ActiveWorksheets(i).Hyperlinks(1).Delete
Loop
Next i
End Sub
Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient
ActiveDocument et la boucle For Next disparait.
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
isabelle
dans ce cas utilise for next For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
dans ce cas utilise for next
For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas.
Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un
lien sur deux.
Seule explication plausible : le fait de supprimer un lien change la valeur
d'index des suivants et le "next" fait sauter d'un cran.
Pour vraiment tout supprimer :
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0
ActiveWorksheets(i).Hyperlinks(1).Delete
Loop
Next i
End Sub
Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient
ActiveDocument et la boucle For Next disparait.
dans ce cas utilise for next For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
isabelle
sorry, c'est plutot,
For i = ActiveWorkbook.Worksheets(i).Hyperlinks.Count to 1 step -1
isabelle
dans ce cas utilise for next For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
sorry, c'est plutot,
For i = ActiveWorkbook.Worksheets(i).Hyperlinks.Count to 1 step -1
isabelle
dans ce cas utilise for next
For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas.
Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un
lien sur deux.
Seule explication plausible : le fait de supprimer un lien change la valeur
d'index des suivants et le "next" fait sauter d'un cran.
Pour vraiment tout supprimer :
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0
ActiveWorksheets(i).Hyperlinks(1).Delete
Loop
Next i
End Sub
Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient
ActiveDocument et la boucle For Next disparait.
For i = ActiveWorkbook.Worksheets(i).Hyperlinks.Count to 1 step -1
isabelle
dans ce cas utilise for next For i = ActiveWorkbook.Worksheets.Count to 1 step -1
isabelle
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
papou
Bonjour françois
Désolé mais j'ai bien peur que cela ne marche pas. Ah bon ? quelle version Excel ?
Testé sur Excel 2000 et fonctionne sans aucun problème, il semblerait que ce soit le cas également pour Agamemnom... Cordialement Pascal
"F. Gondard" a écrit dans le message de news: burmhb$qt4$
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur
d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
Cordialement. François
Bonjour françois
Désolé mais j'ai bien peur que cela ne marche pas.
Ah bon ? quelle version Excel ?
Testé sur Excel 2000 et fonctionne sans aucun problème, il semblerait que ce
soit le cas également pour Agamemnom...
Cordialement
Pascal
"F. Gondard" <fgondard@wanadoo.fr> a écrit dans le message de news:
burmhb$qt4$1@news-reader4.wanadoo.fr...
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas.
Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un
lien sur deux.
Seule explication plausible : le fait de supprimer un lien change la
valeur
d'index des suivants et le "next" fait sauter d'un cran.
Pour vraiment tout supprimer :
Sub SupLesLiensTtesFeuilles()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0
ActiveWorksheets(i).Hyperlinks(1).Delete
Loop
Next i
End Sub
Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient
ActiveDocument et la boucle For Next disparait.
Désolé mais j'ai bien peur que cela ne marche pas. Ah bon ? quelle version Excel ?
Testé sur Excel 2000 et fonctionne sans aucun problème, il semblerait que ce soit le cas également pour Agamemnom... Cordialement Pascal
"F. Gondard" a écrit dans le message de news: burmhb$qt4$
Bonjour,
Désolé mais j'ai bien peur que cela ne marche pas. Cette astuce m'intéressait dans Word ! J'ai testé et on ne supprime qu'un lien sur deux. Seule explication plausible : le fait de supprimer un lien change la valeur
d'index des suivants et le "next" fait sauter d'un cran. Pour vraiment tout supprimer : Sub SupLesLiensTtesFeuilles() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Do While ActiveWorkbook.Worksheets(i).Hyperlinks.Count <> 0 ActiveWorksheets(i).Hyperlinks(1).Delete Loop Next i End Sub Pour Word c'est plus simple, ActiveWorkbook.Worksheet(i) devient ActiveDocument et la boucle For Next disparait.
