Activer/Désactiver les liens Hypertexte

[Jim]

Bonjour le forum,

J'ai mis une petite macro (trouvé sur ce forum) dans un fichier pour désactiver les liens hypertexte sur l'ensemble d'une colonne (colonne B dans l'exemple).

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

Par contre je ne sais pas faire le contraire, c'est à dire activer les liens si le contenu de la colonne contient "@" ou débute par "http://"
Quelqu'un à une astuce ?

Merci
Jim

 

[Jim]

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...

 

[michel]

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

 

[kraenys]

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.