Discussion :

[bigfrit]

bonjour,
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 :

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
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

[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 :

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

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

A moins que j'ai loupé un truc ...

[220plombier]

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...

[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 ?

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é

[boisgontierjacques]

Bonsoir,

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
 
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

[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