Discussion :

[CPB-VBA]

Bonjour,

Je débute en VBA ce qui m'amène à consulter les forums pour trouver des solutions à mes problèmes...
J'ai trouvé une fonction pour trier mon tableau de chiffres et remonter les valeurs les unes à la suite des autres en partant de la première ligne. (merci d'ailleurs à celui qui a trouvé cette solution efficace !!)

Le problème est que ma source de données a changé : ce sont des nombres et parfois des nombres+lettre dans une même cellule.

Quelqu'un pourrait-il m'aider pour que le tri soit toujours respecté malgré les lettres ?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub trier()
    Dim Plage As Range
    Dim i As Byte
    Dim Dcl As Byte, Dlg As Long
    Dcl = Cells(1, Columns.Count).End(xlToLeft).Column
    Dlg = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 1 To Dcl
    Set Plage = Range(Cells(1, i), Cells(Dlg, i))
    Plage.Sort Key1:=Cells(15, i), Order1:=xlAscending, Header:=xlNo, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Next
 End Sub