Discussion :

[tarnak]

Bonsoir. J'ai été un peu voir sur les tutoriaux mais je n'ai pas trouvé mon bonheur

Je viens juste de commencer le VB et je dois faire le tri d'un tableau de 10 nombres par ordre croissant avec un autre tableau. Donc l'utilisateur entre 10 nombres dans un tableau A et le programme les envoie trié dans un tableau B.

Pour entrez les nombres et les afficher, ca va. Mais le tri je n'y arrive pas du tout

(la je vous mets juste le tout début, ca je sais que c'est juste (enfin je crois...))

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
Sub main()
 
Dim i As Integer
Dim table(1 To 10)
 
For i = 1 To 10
    table(i) = InputBox("entrez un nombre")
Next i
 
 
For i = 1 To 10
    MsgBox (CStr(table(i)))
Next i
 
End Sub

Merci d'avance pour votre aide précieuse.

[Edit] bbil : utilisez le bouton pour rajouter les balises de codes [CODE]

[jmfmarques]

Chande ton titre !
"Besoin d'aide" n'en est certes pas un..

cherche un peu mieux sur ce forum : ce sujet a été traité au moins 3 fois récemment (j'espère pour toi qu'il n'a pas été également intitulé... "besoin d'aide"... si tu vois ce que je veux dire !...

[tarnak]

Désolé pour le titre. Au niveau de la recherche les tri de tableau que j'ai trouvé sont plus complexe que le mien et utilise de fonctions que je n'ai pas encore vue, je n'arrive pas vraiment a les comprendre . Je viens de commencer en pour le moment je patauge

[jmfmarques]

Ben...
Si tu ne comprends pas celà :
http://www.developpez.net/forums/sho...83&postcount=3

je ne nous vois pas te faire un cours complet sur les fonctions, les sous-routines et... tout VB quoi !

Il te reste alors une solution (lourde mais simple pour toi...) :

Envoyer le tableau A dans une listBox dont la propriété sorted = True, puis récupérer dans le tableau B ce qui se trouve dans la listbox.

J'espère que tu sais au moins faire des boucles For... Next... (c'est un minimum...)

[tarnak]

Les boucles je connais mais les autres trucs...



Voila ce que j'ai déja:

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
Sub main()
 
Dim a, i, j As Integer
Dim tableA(1 To 10)
Dim tableB(1 To 10)
 
For i = 1 To 10
    tableA(i) = InputBox("entrez un nombre")
Next i
 
For i = 1 To 10
    a=i
    For j = 2 To 10
        If tableA(i) >= tableA(j) Then
                -->Si le 1er est plus grand que le 2eme<--
		-->Alors on ajoute 1 à i<--
                -->Sinon on passe à j+1<--
        End If
    Next j
    i=a
    tableB(i) = tableA(i)
Next i
 
 
For i = 1 To 10
    MsgBox (CStr(tableB(i)))
Next i
 
End Sub

[avigeilpro]

Il ne faut qu'un seul For sinon tu execute du code pour rien si ton nombre est bien placé dés le début, voila une facon, avec un Do Loop :

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
Dim a As String
Dim B As Single
Dim Place As Boolean
Dim Entree() As String
 
 
For Boucle = 1 To UBound(Entree)
    B = Boucle
    Place = False
    Do
        If CSng(Entree(B)) < CSng(Entree(B - 1)) Then
            a = Entree(B)
            Entree(B) = Entree(B - 1)
            Entree(B - 1) = a
            If B <> 1 Then B = B - 1
        Else: Place = True
        End If
    Loop While Place = False
Next Boucle
 
End Sub

ce code tri le tableau Entree