Retrouver des liens hypetext en VBA

[Chris57]

Bonjour à tous,

dans un gros tableau il peut arrivé qu'il y ai des liens hypertext indésirables. Mais avant de les supprimer j'aimerai les signaler pour que l'utilisateur puisse convenir si oui ou non il faut le supprimer.

Pour cela j'ai trouvé ceci sur la toile mais ça ne marche pas :

    For Each Cell In Range("A2:A10")
        If Cell.Hyperlinks.Count > 0 Then
            Cell.Select   
        End If
    Next Cell

est-il possible de sélectionner la ou les cellules contenant un lien hypertext ??

 

[Pierrot93]

Re : Retrouver des liens hypetext en VBA

Bonjour,

essaye ceci pour la feuille active, tu peux aussi l'adapter pour une plage de cellule :

Dim h As Hyperlink, p As Range
For Each h In ActiveSheet.Hyperlinks
    Set p = Union(IIf(p Is Nothing, h.Parent, p), h.Parent)
Next h
p.Select

bonne journée
@+

 

[Chris57]

Re : Retrouver des liens hypetext en VBA

désolé pour la réponse tarive.

Malheureusement j'ai un message d'erreur dans Set p = Union(IIf(p Is Nothing, h.Parent, p), h.Parent)

En fouillant la toile j'ai trouvé ceci :

Dim Cell As Range
For Each Cell In [A1:AM9000]
If Cell.Hyperlinks.Count > 0 Then
Cell.Select
Response = MsgBox("Cette cellule contient un lien hypertext ! Cela peut engendrer des erreurs", vbOKCancel + vbCritical, "PROBLEME")
If Response = vbOK Then Exit Sub
End If
Next Cell

et ça marche parfaitement ^^

 

[Pierrot93]

Re : Retrouver des liens hypetext en VBA

Bonjour,

code donné fonctionne chez moi....
peut être rajouté un contôle si aucun lien sur la feuille... mais pas de rapport à priori avec ton erreur...

Dim h As Hyperlink, p As Range
For Each h In ActiveSheet.Hyperlinks
    Set p = Union(IIf(p Is Nothing, h.Parent, p), h.Parent)
Next h
If Not p Is Nothing Then p.Select

bnne journée
@+