Discussion :

[prodi_64]

Bonjour,

comme le titre l'indique, je cherche une façon simple de trier un tableau dynamique qui contient le chemin de différents répertoires avec leur poids. Je voudrais que le tri se fasse sur le poids du répertoire.

Code :

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

1
2
3
4
5
 
Private Type Dossier
    nom As String
    Taille As Long
End Type

Aussi, je voudrais savoir comment supprimer des élémets de ce tableau dynamique
Merci d'avance

[Catbull]

Peux-tu nous montrer la structure et la déclaration de ton tableau?

[prodi_64]

la structure du tableau, je vous l'ai donné, et la déclaration se fait ainsi :


Dim Tableau(0 To 100) As Dossier
Tableau(i).nom = sousdossier
Tableau(i).Taille = Taille

voila...

[Catbull]

Dans ce cas, tu peux utiliser un tri rapide :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Function TriRapide(Tableau() As Dossier, BorneInf As Long, BorneSup As Long) As Long
    Dim IndexPivot As Long
    Dim Pivot As Dossier
    Dim Inf As Long
    Dim Sup As Long
 
    'Fin de la récursivité
    If BorneInf >= BorneSup Then Exit Function
 
    'Choix du pivot : pifomètre. La meilleur valeur étant la valeur médiane.
    Randomize
    IndexPivot = BorneInf + (BorneSup - BorneInf) * Rnd()
    Pivot = Tableau(IndexPivot)
 
    'Remontée de la première valeur
    Tableau(IndexPivot) = Tableau(BorneInf)
 
    'Initialisation des variables de parcours
    Inf = BorneInf
    Sup = BorneSup
 
    Do
        Do While Tableau(Sup).Taille >= Pivot.Taille
            Sup = Sup - 1
            If Sup <= Inf Then Exit Do
        Loop
 
        If Sup <= Inf Then
            'Toutes les valeurs à gauche du pivot sont <= au pivot
            'Toutes les valeurs à droite du pivot sont >= au pivot
            Tableau(Inf) = Pivot
            Exit Do
        End If
 
        Tableau(Inf) = Tableau(Sup)
 
        Inf = Inf + 1
        Do While Tableau(Inf).Taille < Pivot.Taille
            Inf = Inf + 1
            If Sup <= Inf Then Exit Do
        Loop
 
        If Sup <= Inf Then
            Inf = Sup
            Tableau(Sup) = Pivot
            Exit Do
        End If
 
        Tableau(Sup) = Tableau(Inf)
    Loop
 
    TriRapide Tableau(), BorneInf, Inf - 1
    TriRapide Tableau(), Sup + 1, BorneSup
End Function

Pour appeler la fonction :

Code :

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

1
2
 
TriRapide Tableau, LBound(Tableau), UBound(Tableau)