Comment extraire le nom de domaine d’une URL dans Excel ?
Si vous travaillez souvent avec de nombreuses URL dans votre classeur, il se peut que vous souhaitiez extraire uniquement le nom de domaine de chaque page web. Comment obtenir rapidement les noms de domaine à partir des URL dans Excel ?
Extraire le nom de domaine d’une URL à l’aide d’une formule
Extraire le nom de domaine d’une URL à l’aide d’une fonction personnalisée
Extraire le nom de domaine d’une URL à l’aide d’une formule
La formule longue ci-dessous vous permet d’extraire le nom de domaine de la page web, exactement selon vos besoins. Voici comment procéder :
1. Dans une cellule vide adjacente à celle contenant votre adresse web, saisissez la formule suivante. Dans cet exemple, je l’entre dans la cellule B2 :=IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND(«/»,A2,9)),FIND(«/»,A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND(«//»,A2)+2,IF(ISNUMBER(FIND(«/»,A2,9)),FIND(«/»,A2,9),LEN(A2)+1)-FIND(«//»,A2)-2)).
Remarque : dans la formule ci-dessus, A2 indique la cellule contenant la page web à partir de laquelle vous souhaitez extraire le nom de domaine ; vous pouvez l’adapter selon vos besoins.
2. Appuyez ensuite sur la touche Entrée, sélectionnez la cellule B2, puis faites glisser la poignée de recopie vers le bas jusqu’à la plage à laquelle vous souhaitez appliquer cette formule. Tous les noms de domaine seront alors extraits de chaque URL. Voir la capture d’écran :
Extraire le nom de domaine d’une URL à l’aide d’une fonction personnalisée
Si vous êtes intéressé par le code VBA, vous pouvez créer une fonction personnalisée pour extraire le nom de domaine des URL.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : extraire le nom de domaine d’une URL
Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
If InStr(URL, "//") Then
URL = Mid(URL, InStr(URL, "//") + 2)
End If
If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
URL = Mid(URL, 5)
End If
ExtractDomain = Split(URL, "/")(0)
End Function
3. Ensuite, sauvegardez et fermez le code, retournez à la feuille de calcul, puis saisissez cette formule =Extractdomain(A2) dans une cellule vide située à côté de l’adresse web. Voir la capture d’écran :
4. Appuyez ensuite sur la touche Entrée, sélectionnez la cellule B2, puis faites glisser la poignée de recopie vers le bas jusqu’aux cellules destinées à contenir cette formule. Tous les noms de domaine seront ainsi extraits des cellules contenant une adresse web.
Articles associés :
Comment extraire les domaines de plusieurs adresses e-mail dans Excel ?
Comment Extraire les adresses e-mail rapidement à partir d’une chaîne de texte ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels