CLASSER PAR ORDRE ALPHABETIQUE(SIMPLE)
cs_darunia
Messages postés
354
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
24 mars 2011
-
7 mai 2003 à 14:24
TheSin Messages postés 331 Date d'inscription mardi 12 novembre 2002 Statut Membre Dernière intervention 10 février 2009 - 9 mai 2003 à 19:39
TheSin Messages postés 331 Date d'inscription mardi 12 novembre 2002 Statut Membre Dernière intervention 10 février 2009 - 9 mai 2003 à 19:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7010-classer-par-ordre-alphabetique-simple
https://codes-sources.commentcamarche.net/source/7010-classer-par-ordre-alphabetique-simple
9 mai 2003 à 19:39
parce ke avec ton truc, y'a à peu près 173 lignes à exécuter
avec le code de microsoft du listbox, y'a peut-etre 10 lignes maxi
conclusion : c'est lequel le code le plus rapide ? (ca te rajoute ke 4ko en mémoire je crois)
donc, tu passes ton tableau ds le listbox, et tu le repasse ds le tablo. (directement)
8 mai 2003 à 12:44
7 mai 2003 à 16:21
-tu prends un listbox
-tu mets tous tes mots dedans
-tu met la propriété "sorted" à "True"
c'est nettement + rapide, non ?!?
7 mai 2003 à 16:15
heureusement que t'as pas fait un "hello world" sinon on aurait peut etre eu 4 fois plus de code lol
7 mai 2003 à 15:36
7 mai 2003 à 15:34
7 mai 2003 à 14:24
Tu connais le bubble sort ? c'est un algo bien connu et tres utilisé :
On admet 1 tableaux : NomPrenom(1 To 30) As String
Pour le classer par ordre alphabetique, il suffit de faire comme ça
Dim nbcase As Integer
Dim permut As String
Dim i As Integer
Dim j As Integer
nbcase = 8
For i = 1 To nbcase - 1
For j = i + 1 To nbcase
If NomPrenom(i) > NomPrenom(j) Then
permut = NomPrenom(i)
NomPrenom(i) = NomPrenom(j)
NomPrenom(j) = permut
End If
Next j
Next i