Excel : convertir une colonne avec des hyperliens pour n'afficher que les liens

Réponse courte: vous ne pouvez pas automatiser cela sans VBA.

Manuel

Ceci est sur un ordinateur Windows 7 ; il suffit de remplacer les raccourcis par leurs équivalents Mac correspondants.

1. surlignez une cellule avec un lien hypertexte.
2. Appuyez sur CTRL+K. Cela ouvre la boîte de dialogue de l'hyperlien (voir image ci-dessous). Une fois ouverte, vous constaterez que votre curseur est déjà dans le champ Adresse.
3. Appuyez sur CTRL+A pour mettre en évidence l'URL entière.
4. Appuyez sur CTRL+C pour la copier.
5. Appuyez sur ESC ou Enter pour fermer la boîte de dialogue Hyperlien.
6. Collez l'URL quelque part via CTRL + V.

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

VBA

Voici une solution VBA pour ceux qui peuvent l'utiliser.

Créez un module VBA avec le code suivant :

=GetURL(A1)

Pour l'utiliser, entrez ce qui suit dans n'importe quelle cellule :

où A1 contient un hyperlien.

La fonction au travail :

Cela peut sembler être une méthode de force brute, mais c'est la meilleure façon que j'ai trouvée. (J'ai découvert cette page quand j'ai moi-même eu la même question il y a une heure… vous pourriez passer toute la journée à chercher, mais parfois il est juste plus facile de le faire et d'en finir avec ça).

1) Copiez et collez uniquement les cellules contenant les hyperliens vers une nouvelle feuille de calcul.

2) Exportez la feuille de calcul, cliquez sur “Change File Type”, sélectionnez “Save As Another File Type” et enregistrez-la en tant que page web (alias un fichier HTML).

3) Ouvrez la page web dans votre navigateur et visualisez la source.

4) Copiez et collez la source dans un éditeur de texte.

5) En utilisant la fonction Rechercher/Remplacer de l'éditeur de texte, supprimez le texte de tête et le texte de queue de chaque hyperlien. (En d'autres termes, remplacez ledit texte par rien : “”) Notez que ce texte doit être identique pour chaque hyperlien.

6) Vous devriez maintenant avoir un fichier texte avec rien d'autre que des hyperliens. Copiez et collez si nécessaire dans votre tableur original ou utilisez-le comme bon vous semble.

Modifié pour indiquer que vous pouvez effectivement exporter vers un fichier séparé qui est HTM. Fermez le fichier et ouvrez-le à nouveau dans Excel et cela résoudra le problème. La formule =Hyperlien a disparu et les liens sont convertis en liens réguliers. Cette méthode m'a permis de gagner des heures, elle était très simple et je n'ai pas eu à me préoccuper de scripts ou de formules, ni de VBA ou de macros.

J'utilise un mac et cela a fonctionné pour moi : mettez en évidence la colonne que vous devez convertir, dans le menu Insérer, ouvrez “Hyperlien”. Supprimez tout texte qui apparaît dans la zone d'affichage. Il sera indiqué “[plusieurs cellules sélectionnées]” si votre texte d'affichage est différent d'une cellule à l'autre. Une fois que vous aurez cliqué sur OK, seuls les liens apparaîtront sur votre feuille de travail. Si vous devez convertir des cellules individuelles plutôt qu'une colonne entière, mettez en évidence toutes les cellules que vous devez convertir, faites un clic droit, sélectionnez “modifier l'hyperlien” et suivez les mêmes étapes pour supprimer le texte dans la zone d'affichage.

Je suis sûr qu'il y a avec VBA cependant dans le même temps clic droit, H, et copier et coller l'adresse dans l'écran pour afficher la boîte

Depuis que cette question a été posée, Excel a ajouté la fonction =GetURL(cell) pour que vous puissiez le faire sans avoir à déposer votre propre VBA.