Trie avec fin de mot

[Temjeh]

Bonjour à tous

Encore une fois je solicite votre aide:

Je veut trier des adresses et rues par rue qui sont dans la même cellule ...est-ce possible ?

Elles doivent rester dans la mème donc je ne peut les séparées avec convertir puis lestrier croissant.

123A BBBBBBB
333 ZZZZZZ
234B TTTTTT
22222 AAAAAA

Donerais:

22222 AAAAAA
123A BBBBBBB
234B TTTTTT
333 ZZZZZZ

J'avais pensé un trie par caractères en partant par la fin des mots mais je ne sais pas.

Merci beaucoup pour des idées

Temjeh

 

[Hervé]

salut temjeh, le forum

et une usine à gaz, une 🙂

proposition en vba renvoi en colonne 2 :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablosplit As Variant
Dim i As Integer
Dim j As Byte, k As Byte
Dim temp

tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)

For i = 1 To UBound(tablo)
        tablosplit = Split(tablo(i, 1), ' ')
        tablo(i, 2) = tablosplit(1)
Next i

For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
                If tablo(i, 2) < tablo(j, 2) Then
                        For k = 1 To 2
                                temp = tablo(i, k)
                                tablo(i, k) = tablo(j, k)
                                tablo(j, k) = temp
                        Next k
                End If
        Next j
Next i

For i = 1 To UBound(tablo)
        Cells(i, 2) = tablo(i, 1)
Next i
               
       
End Sub

salut

 

[Temjeh]

Merci beaucoup Hervé pour ce code magnifique
C'est la perfection !!!

La prochaine fois je vais batir des applications avec adresse en rue en 2 col !!! .


Cordialement
Temjeh

 

[Hervé]

re temjeh

de rien

mais c'est vrai que 2 colonnes ce serait quand meme plus simple.

salut

 

[Monique]

Bonjour,

Par formule
Les adresses en B1:B5
En A2 :
=SOMMEPROD((STXT(B$2:B$5;TROUVE(' ';B$2:B$5)+1;55)<STXT(B2;TROUVE(' ';B2)+1;55))*1)+1

Puis trier sur la colonne A

 

[Temjeh]

Oui merci aussi Monique ca fonctione je garde ce code dans mes favoris

Temjeh

 

[Hervé]

bonsoir monique, temjeh

superbe monique

et dire que des personnes nous prennent pour des crack parce qu'on manipule 3 lignes de codes.

les sots.

un admirateur.

salut