=STXT(A1;TROUVE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(GAUCHE(A1;TROUVE("@";A1)))
-NBCAR(SUBSTITUE(GAUCHE(A1;TROUVE("@";A1));" ";""))))+1;TROUVE("µ";
SUBSTITUE(A1;" ";"µ";NBCAR(GAUCHE(A1;TROUVE("@";A1)))-NBCAR(SUBSTITUE(GAUCHE(
A1;TROUVE("@";A1));" ";""))))+TROUVE("@";A1)-TROUVE(" ";STXT(A1;
TROUVE("@";A1);99))-2)
rebonjour,
J'avais pas vu ce 2ème post.
Ton premier post :
https://www.excel-downloads.com/threads/extraction-adresse-email.70200/
Il faut éviter de poster une demande dans plusieurs posts, difficile ensuite de suivre tes / nos réponses.
Sur la base de ce que tu nous indiques, une solution par formule :
Le principe consiste à déterminer l'emplacement de l'espace qui précède l'adresse mail et également l'emplacement de l'espace qui suit l'adresse mail. Ca donne cette formule unn peu longuette :
Code:=STXT(A1;TROUVE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(GAUCHE(A1;TROUVE("@";A1))) -NBCAR(SUBSTITUE(GAUCHE(A1;TROUVE("@";A1));" ";""))))+1;TROUVE("µ"; SUBSTITUE(A1;" ";"µ";NBCAR(GAUCHE(A1;TROUVE("@";A1)))-NBCAR(SUBSTITUE(GAUCHE( A1;TROUVE("@";A1));" ";""))))+TROUVE("@";A1)-TROUVE(" ";STXT(A1; TROUVE("@";A1);99))-2)
Je te laisse essayer
@+
=STXT(A2;TROUVE("<";A2;1)+1;(TROUVE(">";A2;1)-TROUVE("<";A2;1)-1))
=SUBSTITUE(STXT(A2;TROUVE("<";A2)+1;99);">";"")
Sub Macro1_bis()
Selection.TextToColumns Range("A1"), xlDelimited, xlDoubleQuote, , , , , , True, "<"
Columns("B:B").Replace ">", "", xlPart, xlByRows, False
End Sub
Re,
Ton fichier avec la nouvelle formule
abcd
Bonjour à tous
Avec la formule TROUVE (comme je l'avais cherché!)
Il me semble que TROUVE est aussi sur les anciennes versions (testé sur XL2007)
En B2 puis recopie vers le bas
Code:=STXT(A2;TROUVE("<";A2;1)+1;(TROUVE(">";A2;1)-TROUVE("<";A2;1)-1))