trier un tableau de 10 lignes

[zaparoj]

comment trier un tableau de 10 lignes de 110 cellules de gauche à droite en ordre croissant ?
qui peux me repondre
cordialement
zap

 

[Minick]

SAlut,

Dans la boite de dialogue de tri tu as un bouton 'Options...'
et la il suffit de cocher 'De la gauche vers la droite'

@+

 

[zaparoj]

j'ai fais cela mais ça trie que 1 ligne et quand on veux trier 3 lignes ça ne trie que la premiere.
Cordialement
ZAP

 

[Minick]

SAlut,

Effectivement, on est limité avec ce tri.

Essai ce code:

Sub Tri()
    Dim ColDeb As Byte, ColFin As Byte
    Dim LigDeb As Integer, LigFin As Integer
    Dim CptLig As Integer
    Dim Ordre As XlSortOrder
    
    Ordre = xlAscending' Ici tu peux changer l ordre de tri
        
    ColDeb = 2 ' Ici il faut indiquer le numero de la 1ere colone de ton tableau
    LigDeb = 4 ' Ici il faut indiquer le numero de la 1ere ligne de ton tableau
    
    ColFin = Cells(LigDeb, ColDeb).End(xlToRight).Column
    LigFin = Cells(LigDeb, ColDeb).End(xlDown).Row
    
    For CptLig = LigDeb To LigFin
        Range(Cells(CptLig, ColDeb), Cells(CptLig, ColFin)).Sort Key1:=Cells(CptLig, ColDeb), Order1:=Ordre, Orientation:=xlLeftToRight
    Next
End Sub

@+

Message édité par: Minick, à: 02/04/2005 13:06

 

[zaparoj]

merci beaucoup pour l'info je vais essayer
cordialement
Zap