Comment supprimer plusieur hyperliens et leurs cibles? [Fermé]

Signaler
-
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
-
Bonjour,

Il y a-t-il quelquen qui saurait comment supprimer plusieurs hyperliens et leurs cible de façon rapide et efficace?

J'aurais environs 500 liens qui pointent chacun vers des cibles situées dans 2 répertoires différent.

Merci.


A voir également:

5 réponses

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour,

Tes 500 liens sont situés dans un classeur excel ? un document word ?
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci gbinforme, désolé, les hyperliens sont dans un tableau Excel volumineux ou chaque ligne possèdent parfois 2 hyperliens dans 2 cellules différentes. Je dois supprimer plusieurs lignes et supprimer les cibles présente dans 2 folders différents admettons appelés À et B.

J'ai un délai très court afin de réaliser le mandat et faire le tout manuellement serait impensable.

Merci
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour,

Pour excel, avec 2010 ou plus, tu sélectionnes ta colonne concernée et clic droit "supprimer les liens hypertext"
Le fait est que j'ai seulement quelques lignes à supprimer avec sur chacune 1 ou 2 cellules avec des liens hypertextes.

Cette action supprimera également les cibles dans les dossiers en question ?
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
pourrais-je choisir les ligne que je voudrais supprimer avant d'exécutera macro?

Tu n'avais pas précisé que tu voulais en garder. Dans ce cas avec ce nouveau code, tu sélectionnes ta plage avant de lancer la macro qui ne supprime que ce qui est sélectionné.
Public Sub suppr_liens()
Dim cel As Range
For Each cel In Selection
    If cel.Hyperlinks.Count > 0 Then
        If cel.Hyperlinks(1).Address <> "" Then Kill cel.Hyperlinks(1).Address
        cel.Hyperlinks(1).Delete
        cel.Value = ""
    End If
Next cel
End Sub

Tu peux d'ailleurs ne sélectionner qu'une cellule.
Un très grand merci gbinforme!

Tu es génial!
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour Bergee,
Merci du retour sympathique et je suppose que cela a fonctionné comme tu voulais.
Bonjour,

je ne voudrais pas abuser Gbinforme, mais serait-il possible d'y ajouter le nécessaire afin de supprimer également le contenu des lignes où les hyperliens sont présents svp?
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour,

Le contenu de la cellule avec lien et bien supprimé mais si tu veux supprimer tout le contenu de sa ligne,tu remplaces
        cel.Value = ""
par
        Rows(cel.Row).Clear
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour Bergee,

Ton exposé me parait très clair alors je te propose cette macro.
Attention car ensuite, il n'y a plus de traces, ni lien, ni fichier et l'on ne revient pas en arrière. C'est extrêmement destructeur mais apparemment c'est ton souhait...

Public Sub suppr_liens()
Dim cel As Range
For Each cel In ActiveSheet.Range("D1:E" & Range("D:E").SpecialCells(xlCellTypeLastCell).Row).Cells
    If cel.Hyperlinks.Count > 0 Then
        Kill cel.Hyperlinks(1).Address
        cel.Hyperlinks(1).Delete
        cel.Value = ""
    End If
Next cel
End Sub