Passer au contenu principal

Comment convertir un tas d'URL de texte en hyperliens actifs dans Excel?

Si vous avez une liste d'adresses URL en texte brut, comment pouvez-vous activer ces URL de texte vers les hyperliens cliquables comme illustré ci-dessous?

doc activer les hyperliens 1

Convertissez un tas d'URL de texte en hyperliens actifs avec des formules

Convertissez un tas d'URL de texte en hyperliens actifs avec le code VBA

Convertir un tas d'URL de texte en liens hypertextes actifs Kutools for Excel


flèche bleue bulle droite Convertissez un tas d'URL de texte en hyperliens actifs avec des formules

Double-cliquer sur la cellule pour activer les hyperliens un par un vous fera perdre beaucoup de temps, ici, je peux vous présenter quelques formules, procédez comme suit:

Entrez cette formule: = HYPERLINK (A2, A2) dans une cellule vide où vous souhaitez afficher le résultat, puis faites glisser la poignée de recopie vers le bas pour appliquer cette formule aux cellules de votre choix, et toutes les URL de texte ont été converties en hyperliens actifs, voir capture d'écran:

doc activer les hyperliens 2


flèche bleue bulle droite Convertissez un tas d'URL de texte en hyperliens actifs avec le code VBA

Le code VBA ci-dessous peut également vous aider à résoudre cette tâche, procédez comme suit:

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

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

Code VBA: Convertissez un tas d'URL de texte en hyperliens actifs:

Sub activateHyperlinks()
'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

3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler de sélectionner les cellules que vous souhaitez convertir en hyperliens cliquables, voir capture d'écran:

doc activer les hyperliens 3

4. Et puis cliquez OK bouton, les URL en texte brut ont été converties en hyperliens actifs, voir capture d'écran:

doc activer les hyperliens 4


flèche bleue bulle droite Convertir un tas d'URL de texte en liens hypertextes actifs Kutools for Excel

Voici un outil pratique-Kutools for Excel, Avec son Convertir les hyperliens fonctionnalité, vous pouvez rapidement à la fois convertir un tas d'URL de texte en hyperliens cliquables et extraire les adresses d'hyperliens réelles de la chaîne de texte d'hyperliens.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1. Sélectionnez les cellules contenant les URL de texte que vous souhaitez activer.

2. Puis clique 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 hyperliens option sous la Convertir le type section, puis vérifiez Convertir la source plage si vous souhaitez mettre les adresses réelles dans la plage d'origine, voir capture d'écran:

doc activer les hyperliens 6

4. Puis clique Ok bouton, et les URL de texte ont été activées à la fois, voir capture d'écran:

doc activer les hyperliens 4

Notes: Si vous souhaitez placer le résultat dans une autre cellule au lieu de la cellule d'origine, veuillez décocher la case Convertir la source plage et sélectionnez une cellule dans laquelle vous devez générer le résultat de la plage de résultats comme illustré ci-dessous:

doc activer les hyperliens 7

Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!

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 (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations