création d'une adresse mail avec un nom

Staple1600

XLDnaute Barbatruc

• 1 Septembre 2005

• #2

Bonjour


avec une formule
=MINUSCULE(SUBSTITUE(A1;' ';'.'))&'@poufpouf.com'

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 1 Septembre 2005

• #3

Salut,

Une macro est possible, mais je te propose une fonction Excel:

Ecris ça en D1:

=A1&'.'&B1&C1


Et écris en:
A1: Maurice
B1: Lapin
C1: @poufpouf.com


(ou encore remplace C1 dans la formule de D1 par '@poufpouf.com'

ce qui donne pour la formule dans D1: =A1&'.'&B1&'@poufpouf.com')


Ca te vas?

A+

Message édité par: jeromegmc, à: 01/09/2005 15:47

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 1 Septembre 2005

• #4

Bonjour gilles, Staple1600,

En complément de la formule de Staple1600, comme j'ai cru comprendre que tu souhaitais une macro... tu peux essayer :

      chaine = 'Maurice Lapin'
      extension_mail = '@poufpouf.com'
     
      chaine_final = LCase(Replace(chaine, ' ', '.')) & extension_mail
     
      MsgBox chaine_final

Cliquez pour agrandir...

Cordialement,

EDITION
Bonjour jeromegmc, je ne t'avais pas vu venir...

Message édité par: myDearFriend!, à: 01/09/2005 15:49

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Septembre 2005

• #5

Ce qui en VBA peut donner

Sub Macro2()
ext = '@poufpouf.com'
For Each C In Selection
C.Value = LCase(Application.WorksheetFunction.Substitute(C, ' ', '.')) & ext
Next C
End Sub

 

Vote positif 0 Vote négatif