Trier un tableau() as integer sans Sort - Deux méthodes testées

Bonjour,

Salut Ousk' ;) merci pour cette question, je mets la soluce de méphistopheles dans mes tablettes = :king:

Pour ce que j'avais suggéré, c'était surtout au niveau de l'alimentation de l'array que le focus était mis, le fait de ne pas utiliser de boucle impacte très fort la durée...

Le test suivant n'a d'intérêt que dans ce sens, vu que sinon ça revient à un copié-collé sinon :D

construction d'une feuille 60000 lignes 4 colonnes (outils de ma boîte à tests)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Construit() Dim I As Long   For I = 1 To 60000 Cells(I, 1) = I Next I Range("B1").Formula = "=A1*1.125" Range("C1").Formula = "=A1*B1" Range("D1").Formula = "=(A1*B1^2/C1)*(125^1/2)" Range("B1").Select Selection.AutoFill Destination:=Range("B1:B60000"), Type:=xlFillDefault Range("C1").Select Selection.AutoFill Destination:=Range("C1:C60000"), Type:=xlFillDefault Range("D1").Select Selection.AutoFill Destination:=Range("D1:D60000"), Type:=xlFillDefault End Sub

---

Ce qui permet de lancer le test de timing ensuite, alimentation et lecture-écriture de l'array :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toto() Dim TP1 As Single Dim TP2 As Single Dim tabTabloExemple As Variant   TP1 = Timer tabTabloExemple = Range("A1 :D60000").Value Worksheets(2).Range("A1 :D60000").Value = tabTabloExemple TP2 = Timer MsgBox " fait en " & TP2 - TP1 & "secondes" End Sub

---

c'est dans mes vielles notes mal enregistrées, mais je crois que ça vient de L. Longre !

cordialement,

Didier

J'ai regardé ton code et en effet la ligne suivante fait ce que tu indiques

Citation:

---

Tablo = FL3.Range("A1:" & Cells(1, ColFin).Address).Value

---

Mais tu l'as compris, c'était le problème du tri qui m'intéressait ;)
Bonne soirée

Je savais bien que je n'avais pas rêvé ! Seulement voilà, la méthode fonctionne sur VB.Script, apparemment pas sur VBA-Excel :(
Néanmoins vous pourrez la trouver ici
A toutes fins utiles

@ucfoutu
Te voilà rassuré !

Citation:

---

Envoyé par ouskel'n'or

@ucfoutu
Te voilà rassuré !

---

Ce n'est pas celà, que je cherche (depuis plus de 24 heures, maintenant ...), mais autre chose :
tableau ===>> base de données ===>> order by ===>> tableau

Je crois même me souvenir qu'il fautr utiliser une pseudo SGBDR (à 2 dimensions, donc, comme Excel)
:lol:

Edit : en gros se servir de ce que l'on voit là :
http://209.85.135.104/search?q=cache...nk&cd=11&gl=fr

Oui, moi aussi je croyais... Maintenant, j'ai renoncé. Cependant, si tu trouves, comme j'aime bien les codes condensés plus lisibles et donc plus facile à maintenir, si tu trouves la solution, je reste preneur.
En outre c'est bien dans VBA-E que je croyais avoir vu la solution (du tri d'un tableau() avec Sort)
Un grand merci pour tes efforts à venir, je resterai disponible autant qu'il le faudra :mouarf:
A+ donc, je retourne à mes occupations :zzz:

bonjour,

Tiens en cherchant un truc sur les tableaux mulitidimentionnels, je suis tombé ,via un lien,sur ça qui concerne Visual studio , mais qui parle exactement de ce dont tu causais.... pour info ;)

http://msdn.microsoft.com/fr-fr/libr...rt(VS.80).aspx

cordialement,

Didier

Merci pour l'info ;) Dommage que ce soit pour Visual Studio :(
J'ai obtenu deux procédures de tri, il me reste à comparer les temps d'exécution.
Les résultats des tests ici, dans pas longtemps mais faut que je crée les tableaux et que j'inclus l'horloge de fring)
A+ donc

Edit
La procédure de tri la plus rapide qu'on ma proposée se trouve ici, par Philben. 0,02 s pour 2816 lignes contre 0,8 pour la précédente. (µp 2,44 GHZ)
Je crois que je vais la garder :mouarf: