Re : Effacer tous les liens hypertextes d'une worksheet excel
Bonjour,
Avec ceci peut-être:
Code:
Sub RemoveHyperLinksInWorkBook()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
Do While sh.Hyperlinks.Count > 0
sh.Hyperlinks(1).Delete
Loop
Next
End Sub
Re : Effacer tous les liens hypertextes d'une worksheet excel
Merci pour votre aide, ca marche tres bien!
Pour info voici mon code:
Sub deletelink()
Dim i As Integer, wSheet As Worksheet
For Each wSheet In Worksheets
For i = wSheet.Hyperlinks.Count To 1 Step -1
wSheet.Hyperlinks(i).Delete
Next i
Next wSheet