XL 2010 Concaténer texte avant et après un caractère.

[vins1892]

Bonsoir à tous,

j'ai la valeur suivante dans une colonne: dupont, bertrand et je voudrais récupérer dans une cellule bertrand.dupont@hotmail.com

Le but est de générer un nouvelle colonne avec des adresses mails que je copie ensuite dans gmail pour envoyer (ils ont tous une adresse @hotmail.com).
En A1: dupont, bertrand --> B1: bertrand.dupont@hotmail.com
En A2: dupont, jean --> B2: jean.dupont@hotmail.com

J'ai réussi à isoler la partie après la virgule: =MID(A1;FIND(",";A1;1)+2;10) --> bertrand
Comment récupérer la valeur prénom?
Je concatène ensuite avec @hotmail.com dans une 3ème cellule.

Le top serait d'avoir une formule qui fait le tout en une fois (attention, il faut avoir prénom.nom@hotmail.com et pas nom.prénom@hotmail.com).

Merci pour votre aide.

 

[CISCO]

Bonsoir

Si les données sont dans A1, tu peux faire avec

=DROITE(A1;NBCAR(A1)-CHERCHE(",";A1))&"."&GAUCHE(A1;CHERCHE(",";A1)-1)&"@hotmail.com"

@ plus

 

[belkacem_64]

bonsoir
Supposons que les noms trouvés dans la colonne : A
En utilisant ce code :

Sub Myhotmail()

Dim cl As Range
For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
X = Application.WorksheetFunction.Find(",", cl)
cl.Offset(, 1) = Right(cl, Len(cl) - X) & "." & Left(cl, X - 1) & "@hotmail.com"
Next

End Sub