liens hypertexte valide

Le
air2050
Bonjour,
je souhaiterai vérifier si dans une même colonne les liens hypertexte qui y figurent sont bien valides.
Le cas échéant colorier la cellule en rouge ?

Est ce indispensable de passer par une macro ? Une formule est elle possible ?
Merci pour votre aide !!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #22381111
bonjour air2050,

voici un exemple,

Sub Macro1()
Application.DisplayAlerts = False
For Each c In Selection ' plage à adapter
On Error Resume Next
Range(c.Address).Hyperlinks(1).Follow
If Err.Number <> 0 Then
MsgBox c.Address & " lien invalide"
Err.Clear
Else
'autre action, si lien valide
End If
Application.DisplayAlerts = True
Next
End Sub

isabelle


Le 2010-07-18 11:02, air2050 a écrit :
Bonjour,
je souhaiterai vérifier si dans une même colonne les liens hypertexte qui y
figurent sont bien valides.
Le cas échéant colorier la cellule en rouge ?

Est ce indispensable de passer par une macro ? Une formule est elle possible ?
Merci pour votre aide !!
isabelle
Le #22381131
ps/

tu peut aussi remplacer la ligne
MsgBox c.Address & " lien invalide"
par
Range(c.Address).Interior.ColorIndex = 3

isabelle

Le 2010-07-21 07:57, isabelle a écrit :
bonjour air2050,

voici un exemple,

Sub Macro1()
Application.DisplayAlerts = False
For Each c In Selection ' plage à adapter
On Error Resume Next
Range(c.Address).Hyperlinks(1).Follow
If Err.Number <> 0 Then
MsgBox c.Address & " lien invalide"
Err.Clear
Else
'autre action, si lien valide
End If
Application.DisplayAlerts = True
Next
End Sub

isabelle


Le 2010-07-18 11:02, air2050 a écrit :
Bonjour,
je souhaiterai vérifier si dans une même colonne les liens hypertexte
qui y
figurent sont bien valides.
Le cas échéant colorier la cellule en rouge ?

Est ce indispensable de passer par une macro ? Une formule est elle
possible ?
Merci pour votre aide !!
Publicité
Poster une réponse
Anonyme