Discussion :

[jawed]

Salut tous le monde
existe il une astuce pour faire un ordre de la collone A avec un ordre croissant en se basant sur le nombre de caractére dans chaque cellule exemple:
Avant:
1125A
APPD5522
PPO8
RE2
Aprés:
RE2
PPO8
1125A
APPD5522
cordialement
a bientot

[ouskel'n'or]

Bonjour,
Et si tes valeurs ont le même nombre de caractères, tu fais quoi ?

[jawed]

Bonjour ouskel'n'or
bonne question si le nombre est similaire il traite de gauche a droite
cordialement

[Gorfael]

Salut jawed et le forum
tu mets un simple NbCar() dans la colonne à droite et tu utilises le filtre automatique sur cette colonne pour trier croissant/décroissant ou pour filtrer
A+

[ouskel'n'or]

Sans le classement alpha des tailles identiques, tu peux faire ça

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
Sub test()
Dim Tablo, NbLig As Long, i As Long, j As Long, OldVal
    NbLig = Range("A65536").End(xlUp).Row
    Tablo = Range("A1:A" & NbLig)
    Do While i < NbLig
        OldVal = 50 'longueur max fictive
        For NoLig = 1 To NbLig
            If Len(Tablo(NoLig, 1)) <= OldVal And Tablo(NoLig, 1) <> "" Then
                OldVal = Len(Tablo(NoLig, 1))
                j = NoLig
            End If
        Next
        i = i + 1
        Cells(i, 2) = Tablo(j, 1)
        Tablo(j, 1) = ""
    Loop
End Sub

Pour le classement alpha, tu fais un tri alpha préalable, l'ordre sera respecté par le code ci-dessus.
Mais la solution de Gorfael est effectivement plus simple si elle répond bien à ta demande.
Bonne journée

[jawed]

Salut tous Gorfael, ouskel'n'or le forum
Pourquoi faire simple qu'on peut faire compliqué effectivement la solution de Gorfael est plus simple est parfaite. pour ce qui concerne ton code ouskel'n'or il fait aussi l'ordre mais il fait 02 erreurs:
1- il copie les données de la collones A dans la collone B donc je perd les données de cette derniere collone
2- il ne transfert pas les données de chaque lignes.
Ci joint un bout de fichier que je traite

[ouskel'n'or]

La solution de Gorfael te convient ? Ou tiens-tu à faire ça avec VBA ?

[cafeine]

Hello,

sinon tu peux normaliser ta colonne

Code :

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

=REPT(" ";15 - NBCAR(A1)) & A1

insère autant de caractères à gauche pour que la chaine en comprenne 15

il te suffit ensuite de faire le tri sur la nouvelle colonne

[jawed]

salut a vous tous et désolé pour le retard
ouskel'n'or
effectivement je veut si c'est possible traité ce fichier avec VBA, non que je veut pas le faire avec la solution de Gorfael que j'utilise deja mais parsque je débuté en VBA et j'aimerai bien solutioner ce probleme en VBA
cafeine
Une formule que je conaissé pas a retenir ,mais j'ai pas compris

insère autant de caractères à gauche pour que la chaine en comprenne 15

ou a gauche
cordialement
a bientot

[ouskel'n'or]

A gauche de ce contient déjà ta cellule A1
Equivalent VBA :

Code :

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

LeMot = Right(String(15, " ") & range("A1"), 15)

En vba, le code que je t'ai passé classe correctement tes affaires si tu fais un tri alpha avant ce code. Ce tri, tu peux le faire en enregistrant une macro en faisant. Tu nous rapportes le code, on arrangera ça
A+