xcxl
Messages postés101Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention16 octobre 2015
-
12 déc. 2005 à 21:02
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 2008
-
13 déc. 2005 à 12:41
B,
je creer mon macro et je voudrais que mon progs reconnaisse si la cellule est un lien hypertexte.
Et tant que j'y suis je ne sais pas comment recuperer l'adresse de toutes les cellules qui contiennent un lien hypertexte.
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200831 13 déc. 2005 à 12:41
bonjour
tu peux tester
Sub controlePresenceHyperlien()
If Range("A1").Hyperlinks.Count = 0 Then
MsgBox "il 'y a pas de lien hypertexte dans la cellule A1"
Else
MsgBox "il y a un lien hypertexte dans la cellule A1 , dont l'adresse est : " & vbLf & _
Range("A1").Hyperlinks.Item(1).Address
'utilisez Range("A1").Hyperlinks.Item(1).subAddress
'pour afficher un lien vers une autre cellule du classseur
End If
End Sub