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

vgendron

XLDnaute Barbatruc

• 27 Juin 2018

• #2

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))

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 27 Juin 2018

• #3

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juin 2018

• #4

Bonjour vgendron, Philippe

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

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Juin 2018

• #5

Re

Un petit exemple avec une fonction de Jacques Boisgontier.

 

Pièces jointes

• Extract-Email Jacques Boisgontier.xlsm

  13.9 KB · Affichages: 30

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 27 Juin 2018

• #6

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))

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 28 Juin 2018

• #7

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

 

Pièces jointes

• Test EMAIL avec RechV.xlsx

  10.5 KB · Affichages: 25

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 2 Juillet 2018

• #8

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

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 2 Juillet 2018

• #9

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

 

Vote positif 0 Vote négatif