Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 020 fois - Téléchargée 30 fois
'Déclaration des variables utilisées Dim i, j, k As Integer Dim table(10, 4) As String Dim enlever As String Dim temp As String 'On extrait la troisième colonne du tableau et on la range 'dans la listbox nommé list1 ' Celui-ci ayant sa propriété fixe "sorted" à "True", les éléments ' seront classés par ordre alphabétique For i = 0 To UBound(table) - 1 List1.AddItem (table(i, 3) & i) i = i + 1 Next i 'On va maintenant réinjecter les éléments dans le tableau 'en prenant soin que les lignes tu tableau initial soient conservées ' La variable temp est utile si la place de la ligne reste la même après le tri For i = 0 To UBound(table) - 1 If i < 10000 Then enlever = Right(List1.List(i), 4) And k = 4 If i < 1000 Then enlever = Right(List1.List(i), 3) And k = 2 If i < 100 Then enlever = Right(List1.List(i), 2) And k = 2 If i < 10 Then enlever = Right(List1.List(i), 1) And k = 1 temp = table(Val(enlever), 1) table(i, 1) = temp temp = table(Val(enlever), 2) table(i, 2) = temp temp = Left(List1.List(i), Len(List1.List(i)) - k) table(i, 3) = temp temp = table(Val(enlever), 4) table(i, 4) = table(Val(enlever), 4) Next i 'Afin de pouvoir trier une seconde fois sans quitter le prog 'il faut vider la listbox For i = 0 To UBound(table) - 1 List1.RemoveItem (0) Next i
15 nov. 2005 à 16:35
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.