[XL-2007] Extraction d'une chaine de caractère [Résolu]

[Ito]

Bonjour,
Je voudrais extraire une chaine de caractère d'une cellule à partir d'un caractère.Par exemple de la chaine "exemple@yahoo.com" je voudrais extraire "yahoo.com" donc la chaine après @.
Comment le faire avec excel ?
Merci d'avance pour toute réponse.

[lenovo49]

Vois ce code si cela te convient?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim a, b, c, d, e As Long
Dim resultat As String
c = 1
a = Len("exemple@yahoo.com")
 
For e = 1 To a
b = Mid("exemple@yahoo.com", e, 1)
If b = "@" Then
d = e + 1
Exit For
End If
Next e
 
resultat = Mid("exemple@yahoo.com", d, (a - d + 1))
 
End Sub

[beegees]

Salut,

Je ferais cette opération en deux étapes :

Étape 1: rechercher la position du @

Code :

CHERCHE(texte_cherché;texte;no_départ)

utilise ensuite STXT :

Code :

STXT(texte; numéro de départ; nombre de caractères)

STXT

texte représente le texte ou la référence à une cellule contenant le texte à extraire,
numéro de départ est la position dans le texte du premier caractère à extraire,
nombre de caractères indique le nombre de caractères à extraire.

Tu as de quoi résoudre ton problème.

Bon dimanche.

beegees

[gFZT82]

Bonjour,

Essaie avec

Code :

=STXT(A1;CHERCHE("@";A1)+1;9^9)

avec la chaine en A1.

Cordialement.

[Ito]

Envoyé par gFZT82

Bonjour,

Essaie avec

Code :

=STXT(A1;CHERCHE("@";A1)+1;9^9)

avec la chaine en A1.

Cordialement.

Bonjour gFZT82 & beegees,

J'ai essayé et ça marche. Merci !

[Ito]

Envoyé par lenovo49

Vois ce code si cela te convient?

Code :

Lenovo49,

C'est plutôt d'une formule excel dont j'avais besoin, merci néanmoins pour ta réponse.

[beegees]

Envoyé par Ito

Bonjour gFZT82 & beegees,

J'ai essayé et ça marche. Merci !

Très heureux d'avoir pu t'aider.

Très bon dimanche

beeegees