Comment savoir où se trouvent les leins hypertextes dans EXCEL

tamiers364 Messages postés 35 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Je souhaiterai retrouver (et afficher) dans EXCEL les cellules qui contiennent un lien hypertexte (celui-ci peut ne pas avoir le format standard d'un lien HT bleu souligné)

Merci d'avance

Tamiers364
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 765
 
Bonjour,

Par VBA, ce code te colore de rouge (ou vert ou jaune, au choix), les cellules contenant des liens : 

Sub Adresse_Hyperliens()
Dim lien As Hyperlink

For Each lien In ActiveSheet.Hyperlinks
    'remplacer 3 : pour vert par 4; pour jaune par 6
    lien.Range.Interior.ColorIndex = 3
Next
End Sub


Pour l'utiliser :
1- ouvrir le classeur concerné,
2- taper ALT+F11 ==> la fenêtre visual basic editor s'ouvre
3- Insertion / Module
4- Dans la fenêtre de code de ce module, copiez-collez le code ci-dessus
5- fermer la fenêtre visual basic editor
6- Se positionner sur la feuille concernée
7- Taper Alt + F8,
8- choisir Adresse_Hyperliens
9- puis cliquer sur Exécuter
0