Salut,
On demande à l'utilisateur d'ouvrir son fichier et on trie la 1 ere colonne de la 2 émé feuille.sub Princ()
sub Princ()
dim Classeur as workbook,T
on error resume next
set classeur=workbooks.open(ouvf)
with classeur.sheets(2)
T=.[A1].currentregion
trimulti t,1,1,ubound(t)
.[A1].resize(ubound(t),ubound(t,2))=t
end with
end sub
Sub TriMulti(Tablo, Col As Byte, Min&, Max&) 'ZOn
Dim I&, J&, K&, M, Chaine
I = Min
J = Max
M = Tablo((Min + Max) / 2, Col)
While (I <= J)
While (Tablo(I, Col) < M And I < Max)
I = I + 1
Wend
While (M < Tablo(J, Col) And J > Min)
J = J - 1
Wend
If (I <= J) Then
For K = LBound(Tablo, 2) To UBound(Tablo, 2)
Chaine = Tablo(I, K)
Tablo(I, K) = Tablo(J, K)
Tablo(J, K) = Chaine
Next K
I = I + 1
J = J - 1
End If
Wend
If (Min < J) Then TriMulti Tablo, Col, Min, J
If (I < Max) Then TriMulti Tablo, Col, I, Max
End Sub
Private Function OuvF()
OuvF = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls")
End Function
A+++
