Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel extraire des adresses mails

extraire des adresses mails

7 réponses
Avatar
Philippe MERY
Bonjour.
xl 97

J'ai dans la colonne A un joyeux ^%£*
mr x
04.42 xxx
adresse postale
xx@xx.fr
portable
fax
infos diverses..

le tout sans aucune organisation ni régularité

je voudrais dans ma colonne B extraire toutes les adresses mail..
Je cherche une fonction qui puisse me faire cela, "recherche" me donne
parfois des aberrations- je dois louper quelque chose-


merci

--
Cordialement.
Philippe MERY
**pour m'ecrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky
ceci recopie l'email en colonne 5 donc à changer "5" en conséquence
Youky

Sub Rechercher()
With Feuil1.[A1:A10000]
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lig = lig + 1
Cells(lig, 5) = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub


"Philippe MERY" a écrit dans le message de
news: 4732ceb3$0$5100$
Bonjour.
xl 97

J'ai dans la colonne A un joyeux ^%£*
mr x
04.42 xxx
adresse postale

portable
fax
infos diverses..

le tout sans aucune organisation ni régularité

je voudrais dans ma colonne B extraire toutes les adresses mail..
Je cherche une fonction qui puisse me faire cela, "recherche" me donne
parfois des aberrations- je dois louper quelque chose-


merci

--
Cordialement.
Philippe MERY
**pour m'ecrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com



Avatar
Philippe MERY
"Youky" a écrit dans le message de news:

ceci recopie l'email en colonne 5 donc à changer "5" en conséquence
Youky

Sub Rechercher()
With Feuil1.[A1:A10000]
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lig = lig + 1
Cells(lig, 5) = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub


oups, merci...
là je seche sur ce genre de manip
on a pas une fonction qui puisse faire cela?
genre si A1 contient "@" mettre en C1?
merci

Avatar
Daniel.C
Bonjur.
Essaie :

Sub test()
Dim hl As Hyperlink, Ligne As Long
For Each hl In [A:A].Hyperlinks
If InStr(1, hl.Address, "@") > 0 Then
Ligne = Ligne + 1
Cells(Ligne, 2) = Range(hl.Parent.Address)
End If
Next
End Sub

Cordialement.
Daniel
"Philippe MERY" a écrit dans le message de
news: 4732ceb3$0$5100$
Bonjour.
xl 97

J'ai dans la colonne A un joyeux ^%£*
mr x
04.42 xxx
adresse postale

portable
fax
infos diverses..

le tout sans aucune organisation ni régularité

je voudrais dans ma colonne B extraire toutes les adresses mail..
Je cherche une fonction qui puisse me faire cela, "recherche" me donne
parfois des aberrations- je dois louper quelque chose-


merci

--
Cordialement.
Philippe MERY
**pour m'ecrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com



Avatar
Daniel.C
Oups.

Sub test()
Dim hl As Hyperlink, Ligne As Long
For Each hl In [A:A].Hyperlinks
If InStr(1, hl.Address, "@") > 0 Then
Ligne = Ligne + 1
Range(hl.Parent.Address).Copy Cells(Ligne, 2)
End If
Next
End Sub

Daniel
"Daniel.C" a écrit dans le message de news:
uF%
Bonjur.
Essaie :

Sub test()
Dim hl As Hyperlink, Ligne As Long
For Each hl In [A:A].Hyperlinks
If InStr(1, hl.Address, "@") > 0 Then
Ligne = Ligne + 1
Cells(Ligne, 2) = Range(hl.Parent.Address)
End If
Next
End Sub

Cordialement.
Daniel
"Philippe MERY" a écrit dans le message de
news: 4732ceb3$0$5100$
Bonjour.
xl 97

J'ai dans la colonne A un joyeux ^%£*
mr x
04.42 xxx
adresse postale

portable
fax
infos diverses..

le tout sans aucune organisation ni régularité

je voudrais dans ma colonne B extraire toutes les adresses mail..
Je cherche une fonction qui puisse me faire cela, "recherche" me donne
parfois des aberrations- je dois louper quelque chose-


merci

--
Cordialement.
Philippe MERY
**pour m'ecrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com







Avatar
Daniel.C
Tu peux mettre :
=SI(ESTNUM(TROUVE("@";A11;1));A11;"")
Seulement tu récupéreras le texte de l'adresse mail, pas le lien, donc tu ne
pourras pas cliquer dessus.
Daniel

"Philippe MERY" a écrit dans le message de
news: 4732d3d3$0$27410$


"Youky" a écrit dans le message de news:

ceci recopie l'email en colonne 5 donc à changer "5" en conséquence
Youky

Sub Rechercher()
With Feuil1.[A1:A10000]
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lig = lig + 1
Cells(lig, 5) = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub


oups, merci...
là je seche sur ce genre de manip
on a pas une fonction qui puisse faire cela?
genre si A1 contient "@" mettre en C1?
merci




Avatar
Youky
par formules..si tu veux
=SI(ESTERREUR(TROUVE("@";A1));"";A1)
Youky
"Philippe MERY" a écrit dans le message de
news: 4732d3d3$0$27410$


"Youky" a écrit dans le message de news:

ceci recopie l'email en colonne 5 donc à changer "5" en conséquence
Youky

Sub Rechercher()
With Feuil1.[A1:A10000]
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lig = lig + 1
Cells(lig, 5) = c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub


oups, merci...
là je seche sur ce genre de manip
on a pas une fonction qui puisse faire cela?
genre si A1 contient "@" mettre en C1?
merci




Avatar
Philippe MERY
ok merci à tous.