Extraire rapidement Extraire les adresses e-mail d’une chaîne de texte dans Excel – Guide complet
Lorsque vous travaillez avec des données importées ou des chaînes de texte mixtes dans Excel, il peut vous arriver de devoir Extraire les adresses e-mail rapidement et précisément. Que vous traitiez une liste de Adresse e-mail mélangés à d’autres textes ou que vous ayez besoin d’extraire des adresses e-mail d’un grand jeu de données, plusieurs méthodes efficaces existent pour y parvenir. Ce guide vous présente différentes techniques permettant d’Extraire les adresses e-mail à partir de chaînes de texte, notamment l’utilisation de Flash Fill, de Kutools pour Excel, de formules, de fonctions personnalisées et de code VBA. Chaque méthode présente des avantages spécifiques selon vos besoins et la complexité des données.
Extraire Extraire les adresses e-mail d’une chaîne de texte avec Flash Fill
La fonctionnalité Flash Fill d’Excel vous permet de formater ou d’extraire automatiquement des données de manière rapide et efficace, en vous appuyant sur des modèles que vous définissez. Dans cette section, nous vous montrons comment utiliser Flash Fill pour extraire les adresses e-mail à partir d’une colonne contenant des données mixtes — une solution particulièrement utile lorsque vous travaillez avec des listes comprenant divers types de texte et que vous souhaitez isoler uniquement les adresses e-mail.
- Cliquez sur la première cellule de la colonne adjacente (par exemple, B2) où vous souhaitez faire apparaître l’adresse e-mail.
- Saisissez manuellement le Adresse e-mail provenant de la ligne correspondante dans la colonne A, puis appuyez sur Entrée.Par exemple, si A2 contient « ana varela@gmail.com », saisissez « ana varela@gmail.com » dans B2.
- Restez dans la cellule B3 et appuyez sur « Ctrl + E » pour activer Flash Fill.Excel remplira automatiquement le reste de la colonne B avec le Extraire les adresses e-mail.
- La fonctionnalité Flash Fill est disponible à partir d’Excel 2013. Si vous utilisez Excel 2010 ou une version antérieure, elle pourrait ne pas être accessible.
- Assurez-vous que les cellules auxquelles vous appliquez Flash Fill sont formatées en « Texte » pour éviter tout problème de mise en forme indésirable.
Extraire en lot Extraire les adresses e-mail d’une chaîne de texte en un seul clic avec Kutools
Concernant l’extraction de Extraire les adresses e-mail à partir d’un jeu de données, la fonction « Extraire les adresses e-mail » de Kutools pour Excel constitue une alternative puissante à Flash Fill d’Excel. Alors que Flash Fill repose sur une approche manuelle de reconnaissance de motifs, Kutools pour Excel automatise ce processus en un seul clic, ce qui le rend idéal pour traiter efficacement de grands volumes de données. Cet outil simplifie non seulement le processus d’extraction, mais garantit également précision et rapidité, notamment face à des jeux de données complexes ou incohérents.
Après avoir téléchargé et installé Kutools pour Excel, procédez comme suit :
- Sélectionnez la plage de cellules contenant les adresses e-mail que vous souhaitez extraire, puis cliquez sur « Kutools » > « Texte » > « Extraire les adresses e-mail ».
- Dans la boîte de dialogue « Extraire les adresses e-mail » qui s’ouvre, sélectionnez une cellule où afficher l’adresse e-mail, puis cliquez sur OK.
Résultat
Toutes les adresses e-mail présentes dans chaque cellule de la plage sélectionnée sont alors extraites immédiatement.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Extraire Extraire les adresses e-mail d’une chaîne de texte à l’aide d’une formule
Je vous propose ici une formule longue permettant d’extraire uniquement les adresses e-mail du texte dans Excel. Procédez comme suit :
1. Dans la cellule adjacente B1, saisissez la formule suivante :
=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1)))
2. Appuyez ensuite sur Entrée, sélectionnez la cellule B1, puis faites glisser la poignée de recopie jusqu’à la plage à laquelle vous souhaitez appliquer cette formule. Les adresses e-mail contenues dans la plage seront ainsi extraites de la chaîne de texte. Voir capture d’écran :
Remarques :
1. La ponctuation située après l’adresse e-mail sera également extraite.
2. Si les cellules ne contiennent pas d’adresse e-mail, la formule affichera des erreurs.
3. S’il y a plusieurs adresses e-mail dans une même cellule, la formule n’en extraira que la première.
Extraire Extraire les adresses e-mail d’une chaîne de texte à l’aide d’une fonction personnalisée
Outre la formule ci-dessus, une fonction personnalisée peut également vous aider à extraire les adresses e-mail d’une chaîne de texte.
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 la macro suivante dans la fenêtre du module.
Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If OutStr = "" Then
OutStr = getStr
Else
OutStr = OutStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
ExtractEmailFun = OutStr
End Function3. Enregistrez ensuite le code et saisissez la formule =ExtractEmailFun(A1) dans une cellule vide adjacente. Voir la capture d’écran :
4. Appuyez ensuite sur Entrée, sélectionnez la cellule B1, puis faites glisser la poignée de recopie sur la plage où vous souhaitez appliquer la formule. Toutes les adresses e-mail seront ainsi extraites du texte des cellules. Voir capture d’écran :
Remarques :
1. Si les cellules ne contiennent pas d’adresse e-mail, elles apparaîtront vides.
2. Si plusieurs adresses e-mail figurent dans une même cellule, toutes seront extraites.
Extraire Extraire les adresses e-mail d’une chaîne de texte à l’aide d’un code VBA
Si les formules ci-dessus vous paraissent fastidieuses, le code VBA suivant vous permettra d’extraire rapidement les adresses e-mail.
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 la macro suivante dans la fenêtre du module.
VBA : extraire Extraire les adresses e-mail d’une chaîne de texte
Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
extractStr = arr(i, j)
outStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If outStr = "" Then
outStr = getStr
Else
outStr = outStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
arr(i, j) = outStr
Next
Next
WorkRng.Value = arr
End Sub3. Appuyez ensuite sur la touche F5 pour exécuter ce code, puis, dans la boîte de dialogue qui s’ouvre, sélectionnez la plage à laquelle vous souhaitez appliquer le code VBA. Voir capture d’écran :
4. Cliquez ensuite sur OK, et les adresses e-mail seront extraites des chaînes de texte sélectionnées. Voir captures d’écran :
 |  |  |
Remarques :
1. Si les cellules ne contiennent pas d’adresse e-mail, des cellules vides s’afficheront.
2. Toutes les adresses e-mail seront extraites s’il y en a plusieurs dans une même cellule.
3. Les adresses e-mail extraites écraseront les données d’origine ; nous vous recommandons donc d’enregistrer une sauvegarde de vos données au préalable.
Démo : extraire Extraire les adresses e-mail d’une chaîne de texte avec Kutools pour Excel
Article associé :
Comment extraire les domaines de plusieurs adresses e-mail dans Excel ?
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