Tri rapide avec vba excel

Version imprimable

bonjour, :cry:
j'aurai besoin de vos talents pour m'aider a implementer un code sur VBA pour excel qui me fera un tri rapide (quicksort) d'une serie de chiffre dans une colonne sans necessairement connaitre combien de valeurs j'ai

voila ce quil faut faire :
la methode qui doit etre utilisée est la methode pivot fixe . idealement la derniere valeur de ma serie.
je dois avoir une sub qui me lit les donnees a partir de ma feuille excel qui les mets ensuite en memoire , ensuite , CEST LA FONCTION qui me permettra de faire le tri .
elle doit faire en sorte de faire avancer mon pivot vers l'avant jusqu'a temps ou toutes les valeurs qui sont devant lui sont plus petites a lui ,

ensuite je prend un autre pivot pour faire le travail pour les donnees qui sont restés deriere et ainsi de suite ,
jai commence avec ce code la :
-----------------------------------------------------------------------
Code:

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 Sub litcalculecrit() Dim donnees(2302) As Double, i As Integer, mini As Double, maxi As Double, tri As Double 'Etape de lecture For i = 1 To 2302 donnees(i) = Worksheets("feuil1").Cells(i, 1).Value Next i 'etape de calcul tri = Trirapid(donnees) 'etape decriture For i = 1 To 2302 Worksheets("feuil1").Cells(i, 2).Value = donnees(i) Next -------------------------------------------------------------- Function Trirapid(donnees() As Double) As Double Dim n As Double, i As Long, temp As Double, pivot As Double, j As Long n = UBound(donnees) - LBound(donnees) + 1 pivot = donnees(n) For i = 1 To n - 1 If pivot < donnees(i) Then temp = donnees(i) For j = i + 1 To n - 1 donnees(j - 1) = donnees(j) Next donnees(n - 1) = donnees(n) donnees(n) = temp i = i - 1 End If Next
MERCI DE VOTRE AIDE à l'avance

27/02/2013, 22h17
jfontaine

Bonjour,

Comme nous sommes dans Excel, je trouve dommage de ne pas utiliser ce qu'il sait faire très bien, en mettant les données dans une colonne d'un classeur (que tu pourras cacher) et ainsi, faire le tri dans le sens que tu souhaites

Code:

Range("A:A").Sort Range("A1"), xlAscending

A moins que j'ai loupé un truc ...
28/05/2015, 16h36
220plombier

Attention au tri automatique Excel

Bonjour,

C'est malheureusement faux, car Excel trie comme un pignouf !

Essayez donc en mettant dans les cellules A1 à A4 les valeurs suivantes : "a-a", "ac", "a-b", "a-d"
Une véritable macro VBA de tri les rangera bien dans l'ordre "a-a", "a-b", "a-d", "ac"
alors qu'Excel2007 donne : "a-a", "a-b", "ac", "a-d"
Autre problème si on mélange lettres majuscules et minuscules...

Je n'ai pas trouvé la moindre logique dans la méthode utilisée par Excel.

Bon courage...
28/05/2015, 17h21
joe.levrai

Bonjour,

tu peux te tourner vers un logiciel "pas pignouf", ou éventuellement développer ton propre tableur.

et en profiter pour relire la demande ... dans laquelle on parle de chiffres .... je ne suis pas sûr que "a-b" en soit un (ou même "2-1")

Excel possède sa méthode, elle ne correspond pas à la tienne c'est tout
le Tri qu'il effectue sur une liste détectée comme "chaine" regardera les sous-éléments alphanumériques de ta chaine en commençant par les chiffres et ensuite les lettres ... ce qui exclue de facto les éléments non alpha-numériques

voilà une explication pas pignouf et logique non, tes tirets sont ignorés ? :mouarf:

Est-ce la meilleur méthode ? C'est un autre sujet sur lequel je suis (contrairement à toi) plutôt partagé (que totalement réfractaire).

Et pourquoi pas un Sort couplé à des Replace ? Une idée en l'air que je ne creuserais pas (et peut être pas adaptée) ... mais ça reste une idée
A faire dans un tableau virtuel bien entendu ... mais seul les pignoufs n'y auraient pas pensé :ptdr:

Bonsoir,

Code:

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
 
Sub TriQuick()
  n = 10000          ' 0,04 sec
  Dim temp() As Double
  ReDim temp(1 To n)
  For i = 1 To n
    temp(i) = Rnd
  Next i
  t = Timer
  Call tri(temp, 1, n)
  MsgBox Timer - t
  [A1].Resize(n) = Application.Transpose(temp)
End Sub
 
Sub tri(a() As Double, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub

Jacques Boisgontier

28/05/2015, 21h04
joe.levrai

Ah ... cette procédure Tri ... toujours aussi belle à regarder, un véritable bijou que je ne manque jamais d'utiliser et de diffuser (en y ajoutant un commentaire quant à ta paternité)

merci encore pour tout ce qu'on trouve sur ton site :plusser: