Identifier une cellule comportant un lien hypertexte

- - Dernière réponse : cs_Le Pivert
Messages postés
6360
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 novembre 2019
- 10 oct. 2019 à 13:12
Après mes recherches infructueuses, je me décide à demander de l'aide...

Sauriez-vous comment identifier dans un onglet Excel la ou les cellules comportant un lien hypertexte.

Mon fichier étant dense, je ne vais pas passer d'une cellule à l'autre...

Merci d'avance pour vos éclaircissements.
Afficher la suite 

1 réponse

Messages postés
6360
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 novembre 2019
412
0
Merci
en vba:

Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Set FL1 = Worksheets("Feuil1")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
  'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("A1:E15") 'a adapter la plage de recherche
        For Each Cell In Plage
          If Cell.Hyperlinks.Count > 0 Then
     MsgBox Cell.Address 'adresse de la cellule qui contient le lien
     MsgBox Cell.Value 'Valeur de la cellule lue
     MsgBox Cell.Hyperlinks(1).Address 'adresse du lien
    End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub


Commenter la réponse de cs_Le Pivert