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 !!
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
isabelle
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 !!
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 !!
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
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 !!
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 !!
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 !!