Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel cellule non vide

cellule non vide

2 réponses
Avatar
gilbert
Bonjour

comment est-il possible en VBA de savoir si la cellule active contient un
lien hypertexte ?

merci de votre aide

Gilbert
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Joël GARBE
Bonsoir,

Sub lien()
Dim jojo As Hyperlink
Dim LienEstIl As Boolean
LienEstIl = True
On Error GoTo PasDeLien
Set jojo = ActiveCell.Hyperlinks(1)
On Error GoTo 0
If LienEstIl Then
MsgBox Selection.Hyperlinks(1).Address
Else
MsgBox "Pas de lien"
End If
Exit Sub
PasDeLien:
LienEstIl = False
Resume Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"gilbert" a écrit dans le message de
news:
Bonjour

comment est-il possible en VBA de savoir si la cellule active contient un
lien hypertexte ?

merci de votre aide

Gilbert




Avatar
gilbert
Merci

Je vais adapter à ma procédure

bonne soirée

Gilbert

"Joël GARBE" a écrit dans le message de
news:41a60ca6$0$31680$
Bonsoir,

Sub lien()
Dim jojo As Hyperlink
Dim LienEstIl As Boolean
LienEstIl = True
On Error GoTo PasDeLien
Set jojo = ActiveCell.Hyperlinks(1)
On Error GoTo 0
If LienEstIl Then
MsgBox Selection.Hyperlinks(1).Address
Else
MsgBox "Pas de lien"
End If
Exit Sub
PasDeLien:
LienEstIl = False
Resume Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"gilbert" a écrit dans le message de
news:
Bonjour

comment est-il possible en VBA de savoir si la cellule active contient
un


lien hypertexte ?

merci de votre aide

Gilbert