Sujet Précédent Sujet Suivant

Vérification des liens hypertextes [Excel]

Fermé
FannyLp - 2 mai 2022 à 16:38
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 3 mai 2022 à 10:50
Bonjour à tous,

J'ai créé une base de données qui comprend des liens hypertextes automatiques (=LIEN_HYPERTEXTE("emplacement du lien ; nom convivial))
De ce fait, je ne peux pas voir si mes liens existent ou pas à moins que je clique dessus,

Ayant plus de 90 liens, j'aimerais automatiser la vérification et mettre en place une fonction VBA qui afficherait dans la cellule à côté si le lien mène a un fichier ou pas,

Pourriez-vous m'aider ?

Merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
Raymond PENTIER Messages postés 58719 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 novembre 2024 17 233
3 mai 2022 à 04:34
Salut.
Je ne crois pas que cela existe ...
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
3 mai 2022 à 10:50
Bonjour,

en vba à adapter: 

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
     Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address   'adresse du lien dans la cellule à droite
    End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub


0