Effacer tous les liens hypertextes d'une worksheet excel

G

Guest

Guest

• 11 Août 2011

• #2

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

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Août 2011

• #3

Re : Effacer tous les liens hypertextes d'une worksheet excel

Bonjour à tous,

Peux-tu essayer avec :

VB:

Sub Del_HL()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Hyperlinks.Delete
Next ws
End Sub

A+ à tous

Edition : Collision avec mon ami Hasco... Bises mon Ges

 

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #4

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

End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Août 2011

• #5

Re : Effacer tous les liens hypertextes d'une worksheet excel

Bonjour à tous,

As-tu essayé sans boucler sur les liens (voir mon code) ?

A+ à tous

 

Vote positif 0 Vote négatif

O

oliverthekid

Guest

• 11 Août 2011

• #6

Re : Effacer tous les liens hypertextes d'une worksheet excel

Bonjour a tous, bonjour JCGL,

Ton code est effectivement + simple, et marche tout aussi bien.

Merci pour votre aide

 

Vote positif 0 Vote négatif