XL 2016 RECHERCHE D'UNE MACRO CONCERNTANT LES LIENS HYPERTEXTES

job75 à dit:

Bonsoir PACKYMAITRE,

Exécutez cette macro :

VB:

Sub SupprimerLiens()
Dim h As Hyperlink
For Each h In Sheets("Sommaire").Hyperlinks
    If h.Address = "" Then If TypeName(Evaluate(h.SubAddress)) <> "Range" Then h.Parent.Clear
Next
End Sub

A+

Merci pour ton aide, impeccable

Cliquez pour agrandir...

fanch55 à dit:

Bonsoir, à tester :

VB:

Sub Check_Hyper()
Dim H As Hyperlink

    For Each H In ActiveSheet.Hyperlinks
        ' MsgBox H.Range.Address
        Select Case True
            Case H.Address <> vbNullString:   ' on ne traite pas les adresses Web
            Case IsError(Evaluate(H.SubAddress)):  H.Range = vbNullString ' détruit l'hyperlink
        End Select
    Next

End Sub

@job75 : on s'est croisé ... 🤭

Cliquez pour agrandir...

job75 à dit:

Bonsoir PACKYMAITRE,

Exécutez cette macro :

VB:

Sub SupprimerLiens()
Dim h As Hyperlink
For Each h In Sheets("Sommaire").Hyperlinks
    If h.Address = "" Then If TypeName(Evaluate(h.SubAddress)) <> "Range" Then h.Parent.Clear
Next
End Sub

A+

Cliquez pour agrandir...