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

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
     
    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