test sur lien hypertext

[babap1]

Bonjour le forum,

j'aimerai faire un test sur unlien hypertext de la forme :

If (ActiveSheet.Hyperlinks Anchor:=.Offset(0, 1), Address:="http://cares/cgi-bin/fast/view.cgi?AR=" & hotline.txt_SRnumber) Then
    hotline.opt_cares = True
    Else
    hotline.opt_vega = True
    End If

Est-ce que quelqu'un peut-il m'aider?
Merci d'avance,

Bap

 

[tototiti2008]

Re : test sur lien hypertext

Bonjour babap1,

donc, tu veux tester s'il y a un lien hypertexte ou son adresse ?

 

[babap1]

Re : test sur lien hypertext

Bonjour tototiti2008,

j'aimerai tester son adresse si cela est possible.

Merci d'avance,
Bap

 

[tototiti2008]

Re : test sur lien hypertext

Re,

un exemple à adapter :

Sub test()
With ActiveCell
If .Offset(0, 1).Hyperlinks.Count = 1 Then
    If .Offset(0, 1).Hyperlinks(1).Address = "http://www.google.fr/" Then
        MsgBox "ok"
    End If
End If
End With
End Sub

 

[babap1]

Re : test sur lien hypertext

;-) c'est exactement ça! Merci beaucoup.