Discussion :

[Zorko]

Bonjour j'ai un probleme avec excel je n'arrive pas a extraire une adresse mail d'une chaine de charactère un tit exemple :

En case A1 j'ai :

"
Cette notification d'état de remise est générée automatiquement.

Échec de la remise aux destinataires suivants.

monsieurtrucmuche@msn.com
"

j'ai essayé des fonction des macro mais je ne trouve pas donc si quelqu'un ve bien mapporté sont aide se serait sympa j'en est environ 4000 a extraire donc une macro m'aiderai bcp plz

Merci bcp

[caloumaya]

je ne sais pas si la réponse te conviendra

si le texte qui est dans ta cellule A1 est toujours le même (excepté l'adresse)
alors la fonction stxt devrait suffire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(A1;112;100)

112 est le nombre de caractères de : Cette notification d'état de remise est générée automatiquement. Échec de la remise aux destinataires suivants.
à vérifier

et 100 c'est le nombre de caractères extrait. Tu peux mettre plus

Pascale

[Zorko]

Ton exemple marche merci,

mais le souci c'est qu'il n'y a pas tjs le meme message avec l'adresse mail
donc c pour cela que je pense me tourné sur une autre solution avec des lignes de codes vb.

encore merci pour ta réponse rapide désolé

[SilkyRoad]

bonjour


tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Cell As Range
Dim Tableau As Variant
Dim i As Integer
 
'Boucle sur les cellules de la plage A1:A10
For Each Cell In Range("A1:A10")
    'place dans un tableau les chaines Séparés par des espaces
    Tableau = Split(Cell, " ")
    'Boucle sur le contenu du tableau
    For i = 0 To UBound(Tableau)
        'Vérifie si le mot contient le caractères @
        If Tableau(i) Like "*@*" Then
            MsgBox Tableau(i)
            Exit For
        End If
    Next i
Next Cell

michel