Identifier une cellule comportant un lien hypertexte
Frefre68
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Identifier une cellule comportant un lien hypertexte
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Lien de rajout pour bara facebook - Forum Webmastering
- Lien copié ✓ - Forum Google Chrome
- Renommer un lien hypertexte ✓ - Forum Windows
1 réponse
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