Extraction d'une chaine de caractère

[kartouf]

Bonjour à tous,

J'ai bien lu vos différent exemple sur les extractions de caractères, mais je n'ai pas trouvé se dont j'ai besoin.
j'ai simplement besoin d'extraire l'adresse mail dans mes cellules.

A1
"Coteg MANSOURI ABDELBAKI Chef chantier AMANSOURI@societe.fr"
A2
"Coteg AUDOUBERT LAURENT Chef mission cadre LAUDOUBERT@societe.fr"

le seul point commun est "@societe.fr"
Je pensais partir de la droite et chercher l'espace qui précède le "@societe.fr" mais je n'y arrive pas....
Si quelqu'un pouvait m'aider?
Merci

 

[Paritec]

Re : Extraction d'une chaine de caractère

Bonjour Kartouf le forum
voilà ton fichier en retour
tu cliques sur le bouton
a+
papou🙂

 

[Softmama]

Re : Extraction d'une chaine de caractère

Bonjour,

une solution par macro ci dessous (à tester)

Sub Extract()
Dim c As Range
Set c = Range("B3") 'Cellule de début
  Do While c <> ""
    c(1, 2) = Mid(c, InStrRev(c.Text, " ") + 1): Set c = c(2, 1)
  Loop
End Sub

 

[kartouf]

Re : Extraction d'une chaine de caractère

bonjour merci,
cependant j'aimerai m'en servir pour le vrai fichier que je dois traiter, avec les vrais adresses mail. existe t'il une solution avec des formules? car la c'est une macro n'est ce pas?

cordialement

 

[Paritec]

Re : Extraction d'une chaine de caractère

Re Kartouf le forum,
oui c'est une macro il te suffit de la recopier dans ton fichier
a+
papou🙂

 

[Tibo]

Re : Extraction d'une chaine de caractère

Bonjour le fil,

Un essai formule :

=STXT(B3;TROUVE("µ";SUBSTITUE(B3;" ";"µ";NBCAR(B3)-NBCAR(SUBSTITUE(B3;" ";""))))+1;99)

On supposera qu'il ne peut y avoir d'espace après l'adresse mail.

@+

 

[kartouf]

Re : Extraction d'une chaine de caractère

Merci beaucoup Tibo,Paritec et softmama pour vos réponses.
Cela fonctionne parfaitement.
Mille Merci.