Effacer tous les liens hypertextes d'une worksheet excel

[oliverthekid]

Bonjour,

Je cherche à effacer tous les liens hypertextes d'un fichier excel contenant environ 250 onglets.
Je sais que je peux faire la macro

Activesheet.Hyperlinks.Remove

mais j'aimerais repeter l'opération pour tous les onglets automatiquement!

Je vous remercie par avance pour votre aide!

Olivier.

 

[Guest]

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

Bonjour,

Avec ceci peut-être:

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+

 

[JCGL]

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

Bonjour à tous,

Peux-tu essayer avec :

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

 

[oliverthekid]

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

 

[JCGL]

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

 

[oliverthekid]

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