Comment reconnaitre si la cellule est un hyperlien (ou lien hypertexte) sous exc [Résolu]

xcxl 101 Messages postés mardi 21 janvier 2003Date d'inscription 16 octobre 2015 Dernière intervention - 12 déc. 2005 à 21:02 - Dernière réponse : michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention
- 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.

merci beaucoup!
Afficher la suite 

1 réponse

Meilleure réponse
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 13 déc. 2005 à 12:41
3
Merci
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

cordialement
michel

Merci michelxld 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.