Identifier une cellule comportant un lien hypertexte [Fermé]

Signaler
-
Messages postés
7086
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 novembre 2020
-
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.

1 réponse

Messages postés
7086
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 novembre 2020
578
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