Passer au contenu principal

Comment convertir le texte d'une URL en lien hypertexte cliquable dans Excel?

Supposons que vous ayez plusieurs URL dans votre feuille de calcul, mais qu'elles ne soient pas liées, et que vous devez maintenant convertir toutes les URL non liées en liens hypertexte cliquables, comme illustré ci-dessous. Bien sûr, vous pouvez double-cliquer dessus un par un pour les rendre cliquables, mais cela prendra du temps s'il y a beaucoup d'URL. Comment pouvez-vous convertir automatiquement plusieurs URL non liées en liens hypertexte cliquables dans Excel?


flèche bleue bulle droite Convertir le texte de l'URL en lien hypertexte cliquable avec le code VBA

Il semble qu'il n'y ait pas d'autre moyen efficace de résoudre ce problème dans Excel, sauf en utilisant le code VBA suivant.

1. Sélectionnez la plage de texte d'URL que vous souhaitez convertir en hyperliens cliquables.

2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4. Puis appuyez F5 pour exécuter le code, une boîte de dialogue contextuelle vous permettant de sélectionner une plage, puis cliquez sur OKet les URL non liées sélectionnées ont été converties en liens hypertexte cliquables. Voir les captures d'écran:

2

flèche bleue bulle droite Convertir le texte de l'URL en lien hypertexte cliquable avec Kutools for Excel

Peut-être que le code VBA est difficile pour vous, ici, je peux vous présenter un outil multifonctionnel-Kutools for Excel, Avec son Convertir les hyperliens fonctionnalité, vous pouvez rapidement traiter les opérations suivantes:

  • Extraire les adresses réelles des hyperliens;
  • Convertir le texte de l'URL en lien hypertexte cliquable
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Si vous avez installé Kutools for Excel, procédez comme suit:

1. Sélectionnez la plage de texte d'URL que vous souhaitez convertir en hyperliens cliquables.

2Cliquez sur Kutools > Lien > Convertir les hyperliens, voir capture d'écran:

3. Dans le Convertir les hyperliens boîte de dialogue, sélectionnez Le contenu des cellules remplace les adresses des hyperliensEt cliquez doc-bouton1 bouton de Gamme de résultats pour spécifier une cellule pour mettre le résultat.

4. Et puis cliquez OK, tous les liens de texte brut sélectionnés ont été convertis en liens hypertexte cliquables. Voir la capture d'écran:

Notes:

1. Si vous souhaitez mettre les adresses réelles dans la plage d'origine, veuillez vérifier Convertir la plage source.

2. Si le lien hypertexte est lié au document actuel, veuillez vérifier Les hyperliens sont une place dans ce document option.

Cliquez Convertir les hyperliens pour en savoir plus sur cette fonctionnalité.

Téléchargez et essayez gratuitement Kutools for Excel Now!


flèche bleue bulle droite   Démo : convertir le texte de l'URL en lien hypertexte cliquable avec Kutools for Excel

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Article connexe:

Comment extraire des adresses réelles d'hyperliens dans Excel?

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations