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 se passe sur un ordinateur Windows 7 ; remplacez simplement les raccourcis par leurs équivalents Mac correspondants.

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

VBA

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

Créez un module VBA avec le code suivant :

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

Pour l'utiliser, saisissez le texte suivant dans n'importe quelle cellule :

=GetURL(A1)

où A1 contient un lien hypertexte.

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 alors que je me posais la même question il y a une heure... vous pourriez passer toute la journée à chercher, mais parfois, il est simplement plus facile de le faire et d'en finir).

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

2) Exportez la feuille de calcul, cliquez sur "Modifier le type de fichier", sélectionnez "Enregistrer sous un autre type de fichier" et enregistrez-la sous forme de page Web (c'est-à-dire 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) À l'aide de la fonction Rechercher/Remplacer de l'éditeur de texte, supprimez le texte de tête et 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-les si nécessaire dans votre feuille de calcul originale ou utilisez-les où et comme vous le souhaitez.

J'ai ajouté que vous pouvez en fait exporter vers un fichier séparé qui est HTM. Fermez le fichier et rouvrez-le dans Excel et le problème sera résolu. La formule =Hyperlink a disparu et les liens sont convertis en liens normaux. Cette méthode m'a fait gagner des heures, elle était très simple et je n'ai pas eu à m'occuper de scripts ou de formules ou de VBA ou de macros.

J'utilise un Mac et ceci a fonctionné pour moi : mettez en surbrillance la colonne que vous devez convertir, dans le menu Insertion, 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 calcul. Si vous devez convertir des cellules individuelles plutôt qu'une colonne entière, mettez en surbrillance toutes les cellules à 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 est possible de le faire avec VBA, mais en attendant, faites un clic droit, H, et copiez-collez l'adresse dans la boîte de l'écran à afficher.

Depuis que cette question a été posée à Excel, quelqu'un de mon cabinet a ajouté ceci =GetURL(cell) à notre fichier global XLAM et je pensais que cela faisait partie de la base Excel. Voici le VBA...

Public Function GetURL(cell As Range, Optional default_value As Variant) As Variant
      Dim output As Variant
      If (cell.Range("A1").Hyperlinks.Count <> 1) Then
          output = default_value
      Else
          output = cell.Range("A1").Hyperlinks(1).Address
      End If
      GetURL = output
End Function