Comment reconnaitre si la cellule est un hyperlien (ou lien hypertexte) sous exc
Résolu
xcxl
Messages postés
101
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
16 octobre 2015
-
12 déc. 2005 à 21:02
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 13 déc. 2005 à 12:41
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 13 déc. 2005 à 12:41
A voir également:
- Comment reconnaitre un lien hypertexte
- Vba lien hypertexte - Forum Visual Basic 6
- Afficher lien hypertexte excel ✓ - Forum Visual Basic
- Lancement d'un lien hypertexte avec une macro - Forum VBA Office (Excel, Word ...)
- Lien javascript - Forum Javascript / DHTML
- Debrideur de lien - Forum PHP
1 réponse
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
13 déc. 2005 à 12:41
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
cordialement
michel
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
