[RESOLU] Trier alphabétiquement de droite vers la gauche

[Olivier636]

Bonjour à tous,

Après des recherches avec notre ami Google, j'ai pas trouvé un exemple qui fonctionne, et je suis arrivé sur ce site qui logiquement devrait m'aider, étant ciblé Excel 😎

Alors voilà mon soucis :

J'ai une colonne A avec des mots sur X lignes, et je veux trier cette colonne A par ordre alpha MAIS en partant par la fin du mot, donc de droite vers la gauche :

AVANT
AABC
AAAA
AABZ
AAAB

APRES
AAAA
AAAB
AABC
AABZ

Donc user de macro j'imagine mais je connais pas du tout pour faire.

Merci pour votre aide 🙂

 

[david84]

Re : Trier alphabétiquement de droite vers la gauche

Bonjour,
l'exemple présenté me semble être un tri croissant des plus classiques et je ne vois pas en quoi il est effectué de la droite vers la gauche...le plus simple est de placer un exemple explicite sur un petit fichier en expliquant ta demande et en notant manuellement les résultats attendus. N'oublie pas de préciser si tu veux de préférence une solution par formules ou par macro.
A+

 

[Dranreb]

Re : Trier alphabétiquement de droite vers la gauche

Bonjour,
Je ne vois que cette fonction personnalisée pour inverser l'ordre des caractères :

Function TxtDG(Z As String) As String
Dim N As Long
TxtDG = "": For N = 1 To Len(Z): TxtDG = Mid$(Z, N, 1) & TxtDG: Next N
End Function

Cordialement

 

[Olivier636]

Re : Trier alphabétiquement de droite vers la gauche

reBonjour,

Mon exemple n'est pas parlant, bon je commence 🙂

Je souhaite trier des emails par ordre alphabétique, mais en commençant de la droite vers la gauche.
Je place un fichier peut être que ça sera plus parlant.

Après la méthode j'en sais rien, je veux juste que ça fonctionne bien 😉

Merci

 

[Olivier636]

Re : Trier alphabétiquement de droite vers la gauche

Bonjour,
Je ne vois que cette fonction personnalisée pour inverser l'ordre des caractères :

Function TxtDG(Z As String) As String
Dim N As Long
TxtDG = "": For N = 1 To Len(Z): TxtDG = Mid$(Z, N, 1) & TxtDG: Next N
End Function

Cordialement

Nan nan, je ne veux pas inverser les lettres...
Je veux juste faire un tri alphabétique en commencant de la droite vers la gauche.

 

[Dranreb]

Re : Trier alphabétiquement de droite vers la gauche

Ben oui, trié sur la deuxième colonne obtenue avec ma fonction ça donne bien ça !

Ah oui mais il faut bien faire exister ne serait ce que temporairement l'argument sur lequel on veut trier !
À moins qu'il existe un artifice lié à l'utilisation de langues orientales, mais je n'y connais rien.

 

[Olivier636]

Re : Trier alphabétiquement de droite vers la gauche

To Dranreb > heuu dans l'exemple que tu me donnes les lettres de l'email sont inversés...

Juste un tri alpha qui commence de la droite 🙁, on touche pas au mot (email) surtout pas.

 

[Olivier636]

Re : Trier alphabétiquement de droite vers la gauche

To Dranreb > Ah ok ! en fait le tri ne peut se faire qu'en 2 étapes ! si je comprends bien !

1- on inverse les carac
2- on tri en alpha
3- on retourne les carac, pour retrouver les bons mots (emails dans mon cas)

Ca je ne savais point !

 

[Olivier636]

Re : Trier alphabétiquement de droite vers la gauche

Ok merci Dranreb, tout fonctionne bien 🙂

 

[david84]

Re : [RESOLU] Trier alphabétiquement de droite vers la gauche

Re
ci-joint proposition te permettant le tri désiré en conservant ou non les doublons s'il y en a dans ton fichier original.
A+

 

[Dranreb]

Re : [RESOLU] Trier alphabétiquement de droite vers la gauche

Bonjour,
Ah, exact il existe une fonction VB StrReverse qui fait la même chose que ma fonction.
Je n'en étais pas sûr, on l'utilise si peu... Il vaudrait mieux qu'il y ait Min et Max !
J'ai vaguement cherché si ça existait dans Excel. Ce dernier ne la reconnaissant pas il faut quand même la perso, mais elle peut s'écrire plus simplement :

Function TxtDG(Z As String) As String: TxtDG = StrReverse(Z): End Function