Trier adresse email après @

Bonjour,

Les emails sonr en colonne B

Sub TriEmail()
Columns("B:B").Insert Shift:=xlToRight
For Each c In Range("c2", [C65000].End(xlUp))
c.Offset(0, -1) = IIf(InStr(c, "@") > 0, Mid(c, InStr(c, "@") +
1), c)
Next c
Range("A2", [C65000].End(xlUp)).Sort , key1:=[B2]
Columns("B:B").Delete
End Sub

http://cjoint.com/?hlmZgWcse5


Cordialement JB

Bonjour,

J'aimerais trier les adresses emails et forcer le trie après le symbole @.
Ceci afin trier par ordre de nom d'entreprise au lieu du nom de la person ne.
Je crois avoir lu qq part que c'est possible.

Merci de la réponse par retour.
Cecile

Bonjour JB,

Je ne comprends pas. C'est une formule ou macro???
Cecile

Bonjour,

Les emails sonr en colonne B

Sub TriEmail()
Columns("B:B").Insert Shift:=xlToRight
For Each c In Range("c2", [C65000].End(xlUp))
c.Offset(0, -1) = IIf(InStr(c, "@") > 0, Mid(c, InStr(c, "@") +
1), c)
Next c
Range("A2", [C65000].End(xlUp)).Sort , key1:=[B2]
Columns("B:B").Delete
End Sub

http://cjoint.com/?hlmZgWcse5


Cordialement JB

Bonjour,

J'aimerais trier les adresses emails et forcer le trie après le symbole @.
Ceci afin trier par ordre de nom d'entreprise au lieu du nom de la personne.
Je crois avoir lu qq part que c'est possible.

Merci de la réponse par retour.
Cecile

C'est une macro qui crée une colonne intermédiaire avec les noms de
société
La colonne est ensuite supprimée.

JB

Bonjour JB,

Je ne comprends pas. C'est une formule ou macro???
Cecile

Bonjour,

Les emails sonr en colonne B

Sub TriEmail()
Columns("B:B").Insert Shift:=xlToRight
For Each c In Range("c2", [C65000].End(xlUp))
c.Offset(0, -1) = IIf(InStr(c, "@") > 0, Mid(c, InStr(c, "@") +
1), c)
Next c
Range("A2", [C65000].End(xlUp)).Sort , key1:=[B2]
Columns("B:B").Delete
End Sub

http://cjoint.com/?hlmZgWcse5


Cordialement JB

Bonjour,

J'aimerais trier les adresses emails et forcer le trie après le sym bole @.
Ceci afin trier par ordre de nom d'entreprise au lieu du nom de la pe rsonne.
Je crois avoir lu qq part que c'est possible.

Merci de la réponse par retour.
Cecile

Si tes adresses sont en A1:A50, en B1 (par exemple) :

=DROITE(A1;NBCAR(A1)-TROUVE("@";A1))
(à recopier vers le bas jusqu'en B50)

Tu tries ensuite, en sélectionnant A1:B50, sur la colonne B

----------
Ange Ounis
----------

Bonjour,

J'aimerais trier les adresses emails et forcer le trie après le symbole @.
Ceci afin trier par ordre de nom d'entreprise au lieu du nom de la personne.
Je crois avoir lu qq part que c'est possible.

Merci de la réponse par retour.
Cecile