Tri par la droite

Bonjour à tous,
Voici une question qui peut intéresser les poètes :

Comment faire pour trier (dans un programme VBA) une liste de mot dans une colonne d’un fichier en commençant par les lettres de droite (en allant de droite à gauche) ?
Un peu comme si, pour faire un poème, je cherchais les rimes d’une liste de mot. Par exemple, si la liste d’entrée est :
- Chien
- Chat
- Cheval
- Perroquet

La liste de sortie serait :
- Cheval
- Chien
- Chat
- Perroquet

Merci par avance.
RéviAT

Bonjour,

Tu peux essayer ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Tri_inverse() Dim i As Integer, j As Integer, x As Integer Application.ScreenUpdating = False x = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To x Cells(i, 1) = StrReverse(Cells(i, 1)) Next Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom For j = 1 To x Cells(j, 1) = StrReverse(Cells(j, 1)) Next Application.ScreenUpdating = True End Sub

---

Merci beaucoup.
Cela fonctionne très bien.
A bientôt à tous.
RéviAT