XL 2010 Extraire EMAIL d'une chaîne de caractères

[Philippe Château]

Bonjour à tous et toutes,

Je voudrais extraire un "email" d'une chaîne de caractères comme ceci

Pierre DURAND
pierre.durand@Yahoo.com

Sachant qu'après Pierre DURAND il y a un espace et un retour charriot

Merci à tous et toutes

 

[vgendron]

Bonjour
avec un fichier en guise d'exemple ce serait mieux
ca permettrait de savoir si tu veux en formule ou par VBA

par formule. ce sera à base de "trouve, gauche..."
par VBA, à base de split(chaineInit," "&chr(10))

 

[Philippe Château]

Bonjour
Avec une formule c'est beaucoup mieux pour moi
D'avance grand merci

 

[Lone-wolf]

Bonjour vgendron, Philippe

@Philippe Château : Avec une formule c'est beaucoup mieux pour moi

vgendron à dit: avec un fichier en guise d'exemple ...

Tu ne peux pas t'imaginez combien ce serait beaucoup mieux pour lui.

 

[Lone-wolf]

Re

Un petit exemple avec une fonction de Jacques Boisgontier.

 

[JBOBO]

Bonjour à tous,

un essai avec pierre durand en A1 : =LIEN_HYPERTEXTE("mailto:"&STXT(A1;CHERCHE(CAR(10);A1;1);99);STXT(A1;CHERCHE(CAR(10);A1;1);99))

 

[Philippe Château]

Bonjour à tous et toutes, et plus précisément à Lone-Wolf /JBOBO,

Je préfère la solution de JBOBO car celle de Lone-Wolf ne fonctionne pas, ce n'est pas grave, mais puis je abuser en demandant un ajout d'une RechercheV, comme vous pourrez le voir dans le fichier.

Encore merci à vous tous et toutes

 

[Philippe Château]

Bonjour à tous et toutes,

Après vérification de la formule, il reste un caractère qui polue la RechercheV c'est le retour chariot "C13", comment insérer dans la formule ?

Merci et bonne journée

 

[Philippe Château]

Bonjour à tous et toutes,
Trouvé, j'ai rajouté
=SUBSTITUE(LIEN_HYPERTEXTE("mailto:"&STXT(F7;CHERCHE(CAR(10);F7;1);99);STXT(F7;CHERCHE(CAR(10);F7;1);99));CAR(10);"")
Encore merci pour tout, et surtout au forum