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
Starwing
Essaie ça:
Sub EnleveLien() For Each feuille In ActiveWorkbook.Worksheets For Each liens In feuille.Hyperlinks liens.Delete Next Next End Sub
Starwing
-----Message d'origine----- Juste une petite question toute bête, comment supprimer tous les Hyperlink d'une spreadsheet et ne pas de voir les supprimer 1 par 1 ? Merci .
Essaie ça:
Sub EnleveLien()
For Each feuille In ActiveWorkbook.Worksheets
For Each liens In feuille.Hyperlinks
liens.Delete
Next
Next
End Sub
Starwing
-----Message d'origine-----
Juste une petite question toute bête, comment supprimer
tous les Hyperlink d'une spreadsheet et ne pas de voir
les supprimer 1 par 1 ?
Merci
.
Sub EnleveLien() For Each feuille In ActiveWorkbook.Worksheets For Each liens In feuille.Hyperlinks liens.Delete Next Next End Sub
Starwing
-----Message d'origine----- Juste une petite question toute bête, comment supprimer tous les Hyperlink d'une spreadsheet et ne pas de voir les supprimer 1 par 1 ? Merci .
Frédéric Sigonneau
Bonsoir,
Pour faire court :
Sheets("Feuil1").Hyperlinks.Delete
(supprimer les liens n'efface pas leur texte des cellules qui les contiennent... Pour 'vider' les cellules qui contiennent des liens hypertxte de leur contenu :
Sub DeleteHLinks() For Each hpl In Sheets("Feuil1").Hyperlinks Range(hpl.Parent.Address).ClearContents Next End Sub
)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Juste une petite question toute bête, comment supprimer tous les Hyperlink d'une spreadsheet et ne pas de voir les supprimer 1 par 1 ? Merci
Bonsoir,
Pour faire court :
Sheets("Feuil1").Hyperlinks.Delete
(supprimer les liens n'efface pas leur texte des cellules qui les contiennent...
Pour 'vider' les cellules qui contiennent des liens hypertxte de leur contenu :
Sub DeleteHLinks()
For Each hpl In Sheets("Feuil1").Hyperlinks
Range(hpl.Parent.Address).ClearContents
Next
End Sub
)
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Juste une petite question toute bête, comment supprimer
tous les Hyperlink d'une spreadsheet et ne pas de voir
les supprimer 1 par 1 ?
Merci
(supprimer les liens n'efface pas leur texte des cellules qui les contiennent... Pour 'vider' les cellules qui contiennent des liens hypertxte de leur contenu :
Sub DeleteHLinks() For Each hpl In Sheets("Feuil1").Hyperlinks Range(hpl.Parent.Address).ClearContents Next End Sub
)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Juste une petite question toute bête, comment supprimer tous les Hyperlink d'une spreadsheet et ne pas de voir les supprimer 1 par 1 ? Merci
Oui, mais pourquoi faire simple quand on peut faire compliqué ? Mmmmm ? :-)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Range(hpl.Parent.Address).ClearContents
ou hpl.Parent.ClearContents
Juste un peu puriste sur ce coup :-)
Salutations,
Daniel M.
Oui, mais pourquoi faire simple quand on peut faire compliqué ?
Mmmmm ?
:-)
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Oui, mais pourquoi faire simple quand on peut faire compliqué ? Mmmmm ? :-)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
