Discussion :

[laloune]

Bonjour à tous !

j'essaie de trier par ordre croissant et alphabétique des valeurs alphanumériques, qui sont du type FL00, FL01, FDOT, etc... pour obtenir quelque chose du type :

FDOT
FREP
FL00
FL01
...
FL99

j'ai essayé avec un tableau de variables mais ce n'est pas très pratique car certaines valeurs contiennent uniquement des caractères alpha et pas de caractères numériques...

Y a-t-il un objet spécifique pour faire cela en VBA ?

Merci à vous
laloune

[Invité]

Bonjour Laloune,

D'après votre exemple il semble que votre code peut être de 4 lettres ou de 2 lettres et 2 chiffres.

Est-ce toujours le cas ?

Si oui, il y a une solution passant par l'affectation d'une valeur dans une colonne adjacente.

Sinon peut-être que l'on va vous proposer une meilleure solution que je ne connais pas.

[laloune]

Salut salut!

merci pour la réponse

en réalité, non, cela peut tout à fait être une lettre + 2 chiffres, ou 2 lettres 2 chiffres, quatre lettres... Ce qu'on retrouve invariablement c'est l'incrémentation...

merci

[ouskel'n'or]

... il y a une solution passant par l'affectation d'une valeur dans une colonne adjacente.

En effet, en passant toutes les données contenant des caractères numériques dans la colonne adjacente... Ça pourrait donner ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Avant	Alpha	Alpha/	Tri 1	Tri 2	résult
	seul	num
FDOT	FDOT		FDOT	F002	FDOT
FL01		FL01	FREP	FL01	FREP
FL02		FL02		FL02	F002
FL03		FL03		FL03	FL01
FL100		FL100		FL100	FL02
FREP	FREP			FR002	FL03
F002		F002			FL100
FR002		FR002			FR002

Juste une idée

[Invité]

Re Laloune,

En repartant de l'idée de départ en tenant compte des précisions de Ouskel'n'or essayez si ce code peut vous convenir (deux colonnes utilisées qui peuvent être bien sûr vidées à la fin du traitement) :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub Trier()
dl = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
pl = 1
 
    For l = pl To dl
    lon = Len(Cells(l, 1))
    t1 = ""
    t2 = ""
        For c = 1 To lon
        t = Asc(Mid(Cells(l, 1), c, 1))
            If t <= 57 Then
            tn = CStr(t)
            t1 = t1 + tn
            Else
            ta = CStr(t)
            t2 = t2 + ta
            End If
    Next c
    If t1 <> "" Then
    Cells(l, 2) = t1
    Else
    Cells(l, 2) = 0
    End If
    Cells(l, 3) = t2
    Next l
 
Range(Cells(pl, 1), Cells(dl, 3)).Select
    Selection.Sort Key1:=Range(Cells(pl, 2), Cells(pl, 2)), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    For l = 1 To dl
    n = Cells(l, 2)
        If n > 0 Then
        pln = l
        Exit For
        End If
    Next l
Range(Cells(pln, 1), Cells(dl, 3)).Select
    Selection.Sort Key1:=Range(Cells(pln, 2), Cells(dl, 2)), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
End Sub

[laloune]

hep !

j'essaie ca dès demain et je vous tiens au jus

Merci beaucoup en tous cas !

[fring]

Bonjour tlm,

Jacques j'ai essayé ton code et, à moins que mon neurone soit HS (ce qui n'est pas impossible ) il me semble que le tri reste un peu aléatoire selon qu'on a des chaînes de 4 ou 5 caractères, composés de chiffres ou rien que de lettres.

Je me suis également inspiré de vos idées respectives (tout seul on va plus vite, ensemble on va plus loin) pour bricoler un ptit truc

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
 
Sub TESTRI()
Dim Code%, i%, j%, k%
Dim Chaine$
 
For i = 1 To Range("A65535").End(xlUp).Row
If Cells(i, 1) <> "" Then
Chaine = Cells(i, 1).Value
k = Len(Chaine)
End If
    For j = 1 To k
        For Code = 48 To 90
        If Mid(Chaine, j, 1) = Chr(Code) Then Cells(i, 2) = Cells(i, 2).Value & "A" & Code
        Next
    Next
Next
 
Range(Cells(1, 1), Cells(65535, 2).End(xlUp)).Sort Key1:=Range("B1"), Order1:=xlAscending
Range(Cells(1, 2), Cells(65535, 2).End(xlUp)).ClearContents
 
End Sub

@+