extraire chaîne de caractères (formule)

[C@thy]

Bonjour le forum,

je viens de faire une recherche dans le forum mais il semble que ce que je recherche ne s'y trouve pas...

je souhaiterais récupérer
1- tout ce qui se trouve derrière l'@
2- le 1er mot derrière l'@ (entre l'@ et le point)

de préférence par formule...

j'hésite entre le CHERCHE, le TROUVE, le SUBSTITUTE

ex. toto.titi@xld.lemeilleursite.fr -> 1) xld.lemeilleursite.fr 2) xld

de même tout ce qui est derrière le = dans
bidule(1) = bla bla bla -> bla bla bla
bidule(999) = bling bling -> bling bling

Merci à vous si vous avez une idée sur la question.

Bises

C@thy

 

[roro69]

Re : extraire chaîne de caractères (formule)

Bonjour si email en a2:
Peut etre comme ceci:

=DROITE($A2;(NBCAR($A2)-TROUVE("@";$A2))

A++

 

[Staple1600]

Re : extraire chaîne de caractères (formule)

Bonjour Cathy

Et un petit Données/Convertir SEPARATEUR: Autre: @ , cela ne tente pas ?

EDITION: Bonjour roro69 (Bing ! Collision )

 

[david84]

Re : extraire chaîne de caractères (formule)

Bonjour C@thy,
es-tu sûr d'avoir bien cherché?
pour ta 1ère demande, simplement :

=STXT(A1;CHERCHE("@";A1)+1;99)

Pour ta 2ème demande :

=STXT(A1;CHERCHE("@";A1)+1;CHERCHE(".";STXT(A1;CHERCHE("@";A1)+1;99))-1)

Ceci bien entendu testé à partir du seul exemple que tu as fourni (donc à tester plus avant).
A+

 

[Staple1600]

Re : extraire chaîne de caractères (formule)

Bonjour David84


J'étions parti la dessus, mais t'avions été plus prompt
=STXT(A1;CHERCHE("@";A1)+1;CHERCHE(".";A1)-5)


PS: Que penses-tu de l'option D/C ?

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Bonjour à tous, vous êtes super,

voici où j'en étais (pas optimisé!!!)
=DROITE(A1;NBCAR(STXT(A1;1;TROUVE("@";A1)-1)))

merci à vous
je suis bluffée par la concision (et l'efficacité) de vos formules!

Cela va m'être très utile!!

Bises

C@thy

 

[david84]

Re : extraire chaîne de caractères (formule)

Re staple,
D/C c'est très bien aussi (et trop peu utilisé à mon goût de manière générale), mais si c@thy a demandé une formule (ceci-dit, elle avait précisé " de préférence"), c'est sûrement qu'elle avait ses raisons.
A+

 

[Staple1600]

Re : extraire chaîne de caractères (formule)

RE


Le demandeur a ses préférences, certes
Rien n'interdit d'élargir l'horizion (c'est d'ailleurs tout le sel d'un forum tel qu'XLD)

PS2: Et parfois le demandeur peut s'engager sur une piste qui n'est pas forcément la plus évidente.
Avoir un panel de solutions différentes me semble plus enrichissant qu'une "mono-solution".

PS3: De toute façon, Cathy ne semble pas avoir vu ma suggestion

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Hello boyz

Le demandeur a ses préférences, certes
Rien n'interdit d'élargir l'horizon (c'est d'ailleurs tout le sel d'un forum tel qu'XLD)

Avoir un panel de solutions différentes me semble plus enrichissant qu'une "mono-solution".

Tout à fait d'accord, d'ailleurs il est fort possible que j'aie besoin de la solution macro

PS3: De toute façon, Cathy ne semble pas avoir vu ma suggestion

Si si, Staple, j'avais vu ta suggestion, mais elle ne répondait pas au souhait de mes utilisateurs
Le données convertir crée trop de colonnes, et je ne peux en rejouter que 2 à la fin de mon tableau (l'impression du document doit être lisible).

Merci à vous, je suis sûre qu'avec ce post vous allez en dépanner plus d'un(e).

Bises

C@thy

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Coucou les p'tits loups,

sur ma lancée, j'ai essayé d'écrire ceci :

Function MAIL(txt$)
Dim fin%, deb%
deb = InStrRev(adresse, "@") + 1
fin = InStrRev(adresse, ".finances")
MAIL = Mid(adresse, deb, fin - deb)
End Function

mais ça me renvoie #valeur! (Arf! Je croyais m'en sortir toute seule!!)
mes adresses mail ont cette tête :
pascal.dupont@direction.finances.gouv.fr
ou bien
pascal.dupont@finances.gouv.fr

j'ai fait le test sur le 1er cas

Bizzz

C@thy

 

[C@thy]

Re : extraire chaîne de caractères (formule)

autant pour moi

Function MAIL(adresse$)
Dim fin%, deb%
deb = InStrRev(adresse, "@") + 1
fin = InStrRev(adresse, ".finances")
MAIL = Mid(adresse, deb, fin - deb)
End Function

toutefois, si la direction est absente je dois mettre "SEC.GEN." (Secrétariat Général)
Bises

C@thy

 

[david84]

Re : extraire chaîne de caractères (formule)

Re
@c@thy :

mes adresses mail ont cette tête :
pascal.dupont@direction.finances.gouv.fr
ou bien
pascal.dupont@finances.gouv.fr

mes propositions semblent donner le bon résultat. Est-ce le cas ?
Tu veux une fonction personnalisée ou c'est juste pour l'essai ?

@staple :

Le demandeur a ses préférences, certes
Rien n'interdit d'élargir l'horizion (c'est d'ailleurs tout le sel d'un forum tel qu'XLD)

Tout à fait d'accord.
A+

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Tu veux une fonction personnalisée ou c'est juste pour l'essai ?

vi, j'essaie d'écrire ma fonction personnalisée.

C@thy

 

[pierrejean]

Re : extraire chaîne de caractères (formule)

Bonsoir C@thy et bises

Salut à tous

Teste deja:

Function MAIL(txt)
Dim fin%, deb%
deb = InStrRev(txt, "@") + 1
fin = InStrRev(txt, ".finances")
MAIL = Mid(txt, deb, fin - deb)
End Function

 

[C@thy]

Re : extraire chaîne de caractères (formule)

merci PJ Toi aussi tu as vu ma bourde...
j'ai écrit ceci (c'est pas très académique mais ça fonctionne :

Function MAIL(adresse$)
Dim fin%, deb%
deb = InStrRev(adresse, "@") + 1
fin = InStrRev(adresse, "finances")
If deb = fin Then
    MAIL = "Sec.Gen."
Else
    MAIL = Mid(adresse, deb, fin - deb - 1)
End If
End Function

car je n'ai pas toujours le . avant finances, il peut y avoir l'@ direct

Bizz

C@thy