Transformez une adresse mail en nom et prénom

Jocelyn

XLDnaute Barbatruc

• 28 Octobre 2008

• #2

Re : Transformez une adresse mail en nom et prénom

Bonjour le Forum,
Bonjour Evinrude,

En macro je ne sais pas faire mais par formule voila un exemple

Jocelyn

 

Pièces jointes

• Evinrude.zip

  1.7 KB · Affichages: 82

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Octobre 2008

• #3

Re : Transformez une adresse mail en nom et prénom

Bonjour Evinrude

essaye le code ci-dessous, pour traiter la colonne A de la feuille active :

Code:

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c.Value = Split(c.Value, "@")(0)
Next c
End Sub

bon après midi
@+

Edition : bonjour Jocelyn

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Octobre 2008

• #4

Re : Transformez une adresse mail en nom et prénom

Bonjour,

j'espère que ceci correspond à ce que tu souhaites.

C@thy

 

Pièces jointes

• AdrMail.zip

  3.1 KB · Affichages: 48
• AdrMail.zip

  3.1 KB · Affichages: 51
• AdrMail.zip

  3.1 KB · Affichages: 48

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Octobre 2008

• #5

Re : Transformez une adresse mail en nom et prénom

Oups! On dirait qu'on s'est téléscopés, Jocelyn!🙂

Biz

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Octobre 2008

• #6

Re : Transformez une adresse mail en nom et prénom

je rajoute ca qu'a fait Jocelyn à ce que j'ai fait comme ça ce sera complet

Biz

C@thy

 

Pièces jointes

• AdrMail.zip

  4.2 KB · Affichages: 55
• AdrMail.zip

  4.2 KB · Affichages: 52
• AdrMail.zip

  4.2 KB · Affichages: 56

Vote positif 0 Vote négatif

E

Evinrude

Guest

• 28 Octobre 2008

• #7

Re : Transformez une adresse mail en nom et prénom

Ben c'est un bon début merci ! Pour ne rien cacher je démarre en VBA : j'ai reçu une formation EXPRESS cette semaine mais dure de savoir par où commencer !
En tout cas merci!

 

Vote positif 0 Vote négatif

E

Evinrude

Guest

• 28 Octobre 2008

• #8

Re : Transformez une adresse mail en nom et prénom

Pierrot93 à dit:

Bonjour Evinrude

essaye le code ci-dessous, pour traiter la colonne A de la feuille active :

Code:

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c.Value = Split(c.Value, "@")(0)
Next c
End Sub

bon après midi
@+

Edition : bonjour Jocelyn

Cliquez pour agrandir...

Ben merci à vous trois, avec tout ça je devrais y arriver ! Et merci pour la rapidité de réponse, quand j'en serai là....bonne soirée

 

Vote positif 0 Vote négatif