Discussion :

[Gremlinn]

Bonjour le forum,

Voici une nouvelle colle dont je n'ai pas trouvé de piste de solution sur la toile.
J'ai une colonne avec le même nombre de caractères dans chaque cellule. Comment pourrais-je modifier la ligne de code ci-dessous pour faire un tri ascendant avec les 5 derniers caractères contenus dans chaque cellule uniquement ?
La macro enregistrée ci-dessous ne trie qu'avec la totalité des caractères contenus dans chaque cellule.

Code :

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

1
2
3
4
5
Private Sub TriPerso()
Range("C:D").Sort Key1:=Range("C1"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

D'avance merci !

[davido84]

Bonjour,
crée (même temporairement) une colonne intermédiaire dans laquelle les derniers caractères seraient stockés.
Il ne te restera plus qu'à utiliser cette colonne comme clé 1 pour ton tri.
A+

[Gremlinn]

david84

Merci ! Ça marche !
Pourquoi chercher compliqué quand on peut faire simple ! J'espérai tout faire dans l'éditeur VBA (Shame on me!).

[casefayere]

Je suis d'accord avec Davido mais au cas où il ne serait pas possible d'adopter cette solution, je propose un code qui servirait peut-être ailleurs,
procédure à copier sur la feuille concernée

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TriPerso()
Dim Tbase, Dcel As Range, x As Long, NbCar As Integer'supprimer Nbcar si inutilisé
Set Dcel = Range("C" & Rows.Count).End(xlUp)
Tbase = Range("C2", Dcel(1, 2))
NbCar = 5 'facultatif pour nombre caractères
Tri_tb Tbase, NbCar 'supprimer Nbcar si inutilisé
Range("C2", Dcel(1, 2)).ClearContents
Range("C2").Resize(UBound(Tbase, 1), UBound(Tbase, 2)) = Tbase
End Sub

et une fonction, dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Tri_tb(tb, nb As Integer) 'origine (adaptée) http://silkyroad.developpez.com/vba/tableaux/#LI
'ci-dessus supprimer nb si inutilisé
Dim Valeur As Integer
Dim i As Integer
Dim Cible As Variant
 
Do
  Valeur = 0
  For i = UBound(tb, 1) - 1 To 1 Step -1
    If Right(tb(i, 1), nb) > Right(tb(i + 1, 1), nb) Then 'nb à remplacer par 5 si inutile
      Cible = tb(i, 1) & "|" & tb(i, 2)
      tb(i, 1) = tb(i + 1, 1)
      tb(i, 2) = tb(i + 1, 2)
      tb(i + 1, 1) = Split(Cible, "|")(0)
      tb(i + 1, 2) = Split(Cible, "|")(1)
      Valeur = 1
    End If
  Next i
Loop While Valeur = 1
Tri_tb = tb
End Function

[Gremlinn]

Je suis d'accord avec Davido mais au cas où il ne serait pas possible d'adopter cette solution, je propose un code qui servirait peut-être ailleurs,

Merci ! Votre solution est bien pratique pour sa portabilité.