Discussion :

[kikiarch]

Bonjour,

Je doit réaliser le tri de 10 valeurs contenus dans ma table "T" pour les ranger dans l'ordre croissant
Les valeurs sont entières et positives

Comment faire ?

j'ai réussit tout le reste de mes actions sauf celle-ci.

Voici mes codes pour le moment ne manque plus que le tri :

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
Dim T(10) As Integer
 
Private Sub CommAffTab_Click()
    Dim Memtab As String
    For i = 0 To 9 Step 1
    Memtab = Memtab + Str(T(i))
    Next
    TextBox1.Text = Memtab
End Sub
 
Private Sub CommAjoutVal_Click()
    'Déclaration des variables
    Dim caseTab As Integer
    'Verification des champs
    'Vérifie si les champs sont différents (<>) d'un champ vide ("")
        If TextBoxVal.Text <> "" Then
        'Lecture du nombre de valeur
        caseTab = Val(LabelNbVal.Caption)
        'Aquisition de la valeur
        T(caseTab) = Val(TextBoxVal.Value)
        'Mise a jour de NbVal
        LabelNbVal.Caption = caseTab + 1
        'Effacement de la valeur affichée
        TextBoxVal.Text = ""
        TextBoxVal.SetFocus
        'Desactivation du bouton "+" quand NbVal = 10
            If LabelNbVal.Caption = 10 Then
            CommAjoutVal.Enabled = False
            TextBoxVal.Enabled = False
            MsgBox ("Nombre maximum de valeur atteint !")
            End If
        Else
        'Message d'erreur
        MsgBox ("Aucune valeur n'est saisie !")
        End If
End Sub
 
Private Sub CommEffTab_Click()
Dim i As Integer
For i = 0 To 9 Step 1
T(i) = 0
Next
LabelNbVal.Caption = 0
TextBoxVal.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
CommAjoutVal.Enabled = True
TextBoxVal.Enabled = True
TextBoxVal.SetFocus
End Sub

[SilkyRoad]

bonsoir


J'espère que ce lien pourra t'aider

XIV-D. Trier les données d'un tableau


ps
tu peux utiliser l'instruction Erase pour effacer les données de ton tableau, à la place de:

Private Sub CommEffTab_Click()
Dim i As Integer
For i = 0 To 9 Step 1
T(i) = 0
Next
'...

bone soirée
michel

[kikiarch]

oui il la fait ^__^

merci beaucoup a toi ! bonne journée