Activer/Désactiver les liens Hypertexte

Oops...

le code est

Sub EffLienHyp()
Range("B:B").Select
Selection.Hyperlinks.Delete
End Sub

les "<B>""</B>" n'ont rien à voir dans le code...

Bonsoir jim

si les valeurs des cellules correspondent à l'adresse du lien hypertexte , tu peux essayer le code ci dessous

Sub Lien()
Dim val As Range
For Each val In Range("b1:b40")
If val <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Range(val.Address), Address:=val.Value
End If
Next
End Sub


bonne soirée
Michel

Re : Activer/Désactiver les liens Hypertexte

Bonjour à tous, ce sujet est très proche de mon souci actuel car j'utilise précisément la fonction de Michel, juste dans un plus grand nombre de lignes:

Sub Lien()
Dim val As Range
For Each val In Range("d2:d126230")
If val <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Range(val.Address), Address:=val.Value
End If
Next
End Sub


Problème, seuls les 65530 premiers liens sont activés. Est-ce un problème de format? J'ai essayé au format .xls, .xlsb et .xlsx pour l'instant.

Merci d'avance de votre aide.