Discussion :

[RéviAT]

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

[fring]

Bonjour,

Tu peux essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RéviAT]

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