Comment supprimer plusieur hyperliens et leurs cibles?

Bergee - 13 janv. 2017 à 21:22 - Dernière réponse : gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention
- 16 janv. 2017 à 22:07
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.


Afficher la suite 

14 réponses

Répondre au sujet
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 13 janv. 2017 à 21:51
0
Utile
Bonjour,

Tes 500 liens sont situés dans un classeur excel ? un document word ?
Commenter la réponse de gbinforme
0
Utile
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
Commenter la réponse de Bergee
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 13 janv. 2017 à 22:28
0
Utile
Bonjour,

Pour excel, avec 2010 ou plus, tu sélectionnes ta colonne concernée et clic droit "supprimer les liens hypertext"
Commenter la réponse de gbinforme
0
Utile
9
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 ?
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 14 janv. 2017 à 22:28
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!
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 15 janv. 2017 à 16:50
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?
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 16 janv. 2017 à 22:07
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
Commenter la réponse de bergee
gbinforme 14415 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 14 janv. 2017 à 18:02
0
Utile
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

Commenter la réponse de gbinforme