Bonjour tout le monde,
J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le
problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ?
Merci
Lulu
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
JP25
Bonjour, Sub sup() For x = 1 To Sheets.Count For n = 1 To Sheets(x).Hyperlinks.Count Sheets(x).Hyperlinks.Delete Next Next End Sub
-- Cordialement JP25
"Lulu la Nantaise" a écrit dans le message de news:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ? Merci Lulu
Bonjour,
Sub sup()
For x = 1 To Sheets.Count
For n = 1 To Sheets(x).Hyperlinks.Count
Sheets(x).Hyperlinks.Delete
Next
Next
End Sub
--
Cordialement
JP25 NoSpam-jpmonnier@tele2.fr
"Lulu la Nantaise" <nospam@nospam.fr> a écrit dans le message de news:
uw8AgVuuHHA.4464@TK2MSFTNGP02.phx.gbl...
Bonjour tout le monde,
J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le
problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ?
Merci
Lulu
Bonjour, Sub sup() For x = 1 To Sheets.Count For n = 1 To Sheets(x).Hyperlinks.Count Sheets(x).Hyperlinks.Delete Next Next End Sub
-- Cordialement JP25
"Lulu la Nantaise" a écrit dans le message de news:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ? Merci Lulu
JB
Bonjour,
Pour la feuille active:
Cells.Hyperlinks.Delete
Pour le classeur:
For s = 1 To Sheets.Count Sheets(s).Cells.Hyperlinks.Delete Next
JB
On 30 juin, 09:07, "Lulu la Nantaise" wrote:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapid e ? Merci Lulu
Bonjour,
Pour la feuille active:
Cells.Hyperlinks.Delete
Pour le classeur:
For s = 1 To Sheets.Count
Sheets(s).Cells.Hyperlinks.Delete
Next
JB
On 30 juin, 09:07, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Bonjour tout le monde,
J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le
problème c'est qu'il y en a des milliers ! Y a t il une méthode rapid e ?
Merci
Lulu
For s = 1 To Sheets.Count Sheets(s).Cells.Hyperlinks.Delete Next
JB
On 30 juin, 09:07, "Lulu la Nantaise" wrote:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapid e ? Merci Lulu
Lulu la Nantaise
Merci à vous 2, vous me sauvez ! J'essaie de suite Lulu "Lulu la Nantaise" a écrit dans le message de news:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ? Merci Lulu
Merci à vous 2, vous me sauvez !
J'essaie de suite
Lulu
"Lulu la Nantaise" <nospam@nospam.fr> a écrit dans le message de news:
uw8AgVuuHHA.4464@TK2MSFTNGP02.phx.gbl...
Bonjour tout le monde,
J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le
problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ?
Merci
Lulu
Merci à vous 2, vous me sauvez ! J'essaie de suite Lulu "Lulu la Nantaise" a écrit dans le message de news:
Bonjour tout le monde, J'ai un fichier avec des liens hypertexte que je voudrais supprimer, le problème c'est qu'il y en a des milliers ! Y a t il une méthode rapide ? Merci Lulu