test sur lien hypertext

tototiti2008

XLDnaute Barbatruc

• 2 Décembre 2008

• #2

Re : test sur lien hypertext

Bonjour babap1,

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

 

Vote positif 0 Vote négatif

B

babap1

XLDnaute Occasionnel

• 2 Décembre 2008

• #3

Re : test sur lien hypertext

Bonjour tototiti2008,

j'aimerai tester son adresse si cela est possible.

Merci d'avance,
Bap

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Décembre 2008

• #4

Re : test sur lien hypertext

Re,

un exemple à adapter :

Code:

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

 

Vote positif 0 Vote négatif

B

babap1

XLDnaute Occasionnel

• 2 Décembre 2008

• #5

Re : test sur lien hypertext

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

 

Vote positif 0 Vote négatif