Comment trier un tableau ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment trier un tableau ?

yanhoupa

Bonsoir,

Voila j'ai un problème :

J'ai un tableau de 10 lignes et 1 colone en A de valeurs non trié. Et comment en B (par exemple) les avoir triées ?
Je sais que c'est simple et toussa mais j'ai pas trouver un programme simple (un tuto par exemple) qui l'explique.

PS : en plus, en recopiant le tableau je me suis trompé, j'ai mis 2 fois 30, mais c'est pas important.

Il me faut surtout un programme qui le fasse mais si je pouvais le comprendre ca serai un plus

Et qu'il soit performant ou non est secondaire.

Merci d'avance

Publicité

FlorentG

Unité de Masse

Je pige pas... Excel le fait tout seul ! Tu copie ta colonne, puis tu tries. Et si tu enregistres sous forme de macro ces actions, ça te fera le programme

yanhoupa

enfaite j'ai trouvé cela qui est super proche de selon d'ont j'ai besoin :

http://mypage.bluewin.ch/w.stucki/Programmes.htm#Tri

Mais eux c'est dans un tableau assez "complexe" ya pas moyens de mettre ca plus en forme comme j'en ai besoin.

Sinon oui excel le fait tout seul, mais crois bien que je fais pas ça par plaisir de me compliquer la vie, c'est que très bientot j'ai un devoir noté et un exercice type du test serai d'ecrire un programme qui trie des valeurs d'une colone dans une autre...

FlorentG

Unité de Masse

Avec les fonctions Excel, ça prend deux lignes

yanhoupa

bah je le ferais si j'arrive pas a le faire tout seul mais bon faudra pas que j'esper trop avoir tout les points

kiki29

Méthodes de Tris VB6 à adapter en VBA: http://docvb.free.fr/vbplus/Tris/Tri.php

Message édité par kiki29 le 01-12-2006 à 03:54:52

yanhoupa

Ah merci, j'ai reussi a faire ceci avec le model de trie par bulle :

Code :

Sub tri_bulle()
Dim tableau3(10) As Single
Dim i As Integer
Dim j As Integer
Dim a As Single
For i = 1 To 10
tableau3(i) = Cells(i)
Next i
For i = 1 To 10 - 1
For j = 1 To 10 - i
If tableau3(i) > tableau3(i + 1) Then
a = tableau3(i + 1)
tableau3(i + 1) = tableau3(i)
tableau3(i) = a
End If
Next j
Next i
For i = 1 To 10
Cells(i, 2) = tableau3(i)
Next i
End Sub

Mais bien sur ca marche pas

yanhoupa

j'ai pas compris le j+1 ?

seniorpapou

If tableau3(i) > tableau3(i + 1) Then
a = tableau3(i + 1)
tableau3(i + 1) = tableau3(i)
tableau3(i) = a
mets des j partout à la place des i

seniorpapou

sais tu faire du "pas à pas" dans vbe ?

Publicité

seniorpapou

cells(i,1) à la place de cells(i)

yanhoupa

non

Code :

Sub tri_bulle()
Dim tableau3(10) As Single
Dim i As Integer
Dim j As Integer
Dim a As Single
For i = 1 To 10
tableau3(i) = Cells(i)
Next i
For i = 1 To 10 - 1
For j = 1 To 10 - i
If tableau3(j) > tableau3(j + 1) Then
a = tableau3(j + 1)
tableau3(j + 1) = tableau3(j)
tableau3(j) = a
End If
Next j
Next i
For i = 1 To 10
Cells(i, 2) = tableau3(i)
Next i
End Sub

Paul Hood

Bonjour,
A part ce que seniorpapou t'a dèjà dit, et que tu n'a pas fait, ca marche chez moi.
Quand tu complétes ton tableau, dans ta boucle il faut mettre
tableau3(i)=cells(i,1)

yanhoupa

lol ca marche la

tout cela a cause de ca

mais merci en tout cas

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment trier un tableau ?

Sujets relatifs
Trier un tableau sous excel horizontalement avec VBA(résolu)	[JAVA]trier un tableau sans comparable ni compareTo
Tableau à trier en fct de deux champs	trier un tableau
Trier meilleurs scores dans un tableau	Trier meilleurs scores dans un tableau
Je rage : J'arrive pas a trier un tableau...	trier plusieurs tableau de mem dimension avec un unique ?
Trier un tableau par date ...	Trier un "tableau" (d'une page html) issue d'un resultset java ?
Plus de sujets relatifs à : Comment trier un tableau ?

Page générée en 0.089 secondes