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

[parmi]

Bonjour,

Je n'ai pas regardé ton fichier, mais dans le code il n'y a pas lieu de faire une boucle lorsque tu tries.
Ça ne sert à rien de faire le même tri 15 fois si tu as 15 colonnes...

Qu'est-ce qui ne va pas avec le code ?
Le tri n'est pas comme tu veux ?
As-tu un exemple ?

[CPB-VBA]

Merci pour cette réponse.

Le tri doit se faire indépendamment pour chaque colonne.
Je voudrais trier par colonne les nombres qui s'affichent. Par exemple, d'après l'image de mon fichier, je voudrais obtenir
> dans la colonne I:
17
37
37c
57

> dans la colonne J:
17
50c
52

Le 50c et le 37c doivent s'inclure au tri ce qui me fait dire que s'il n'y a que des nombre cette fonction est valide mais s'il y a des nombres + lettre, le tri ne les prends pas en compte... mais voilà où corriger dans la fonction; telle est mon igorance ...
CPB

[parmi]

OK, je comprends mieux le pourquoi du tri en boucle...

Le problème, c'est que la plage est calculée en fonction du nombre de lignes en A

Dlg = Range("A" & Rows.Count).End(xlUp).Row

Soit tu intègres cette ligne dans la boucle, soit tu utilises une autre méthode pour trouver le nombre de lignes comme celle-ci

Code :

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

Dlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row

[casefayere]

Bonjour parmi, re le forum

Ça ne sert à rien de faire le même tri 15 fois si tu as 15 colonnes...

apparemment CPB-VBA veut trier chaque colonne indépendamment, perso, ce qui m'étonne est cette partie

Code :

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

Plage.Sort Key1:=Cells(15, i)

à part ça, je ne vois pas non plus où est le problème !

[casefayere]

Bonsoir,
tu peux essayer ce code si aucune cellule vide s'interpose entre les autres cellules de la colonne, sinon les nuls seront comptés

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
Sub trier()
Dim Plage As Range, valeur As Integer
Dim i As Integer, cible, J As Integer
Dim Dcl As Integer, Dlg As Long
Dcl = Cells(1, Columns.Count).End(xlToLeft).Column
 
For J = 1 To Dcl
  Dlg = Cells(Rows.Count, J).End(xlUp).Row
  Do
    valeur = 0
    For i = 1 To Dlg - 1
      If Val(Cells(i, J)) > Val(Cells(i + 1, J)) Then
        cible = Cells(i, J)
        Cells(i, J) = Cells(i + 1, J)
        Cells(i + 1, J) = cible
        valeur = 1
      End If
    Next i
  Loop While valeur = 1
Next J
 
End Sub

[CPB-VBA]

Merci pour ces deux solutions que j'ai pu tester.

La seconde de casefayere répond complètement à ma demande car en plus de trier les nombres et nombres + lettres, elle replace les éléments triés au sommet de la colonne.
C'est super ! Un grand merci vous m'avez fait faire un bon de géant

CPB

--