Trie sur 3 derniers car

Bonjour a tous

J'ai une fichier d'adrs mail que je dois trier par extension (.ch,.be,.com etc...) la fonction trie ne s'applique qu'aux premiers caracteres de la colonne selectionnée, comment dois je faire ?

Merci a tous pour votre aide

Bonjour

Tu extraits les extensions dans la colonne de droite et tu tries sur cette dernière colonne

Exemple :

En A2 : monadresse@yahoo.com

En B2 :

 =STXT(A2;TROUVE("zzz";SUBSTITUE(A2;".";"zzz";NBCAR(A2)-NBCAR(SUBSTITUE(A2;".";""))))+1;NBCAR(A2))

renverra com

Tu sélectionnes les colonnes A et B et tu tries sur B

Amicalement

Nad

Bonjour Crapio,

Bah, perso, j'ai pas d'idée comme ça, mais moi je te dirais que tu vas devoir sortir du VBA...

Et sinon, édite ton titre pour être plus explicite (tri de mails par extension (.be,.fr,...)) ça aidera tout le monde a y voir plus clair et t'auras ptet des réponses plus rapides!

Edit : Je sers à rien, les modos sont tous puissants!!!!

Bonjour à tous,

Solution Split en VBA

Sub Extension()
Dim Lg%, i%, x
Lg = Range("a65536").End(xlUp).Row
    '--- ajoute colonne temporaire ---
    Columns("b").Insert
    '--- extrait les extensions ---
    For i = 2 To Lg
        x = Split(Cells(i, "a"), ".")
        Cells(i, "b") = x(UBound(x))
    Next i
    '--- tri ---
    Range("a2:b" & Lg).Sort Key1:=Range("b2"), Order1:=xlAscending, Key2:=Range("a2") _
    , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom
    '--- supprime colonne temporaire ---
    Columns("b").Delete
End Sub

Amicalement

Claude

bonjour

en complement avec des formules tranquilles

sur le fichier de Dubois

cordialement

Bonsoir,

Pas de suite ?

merci a tous