Discussion :

[Didier Gonard]

Bonjour,

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

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

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

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

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

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

[ouskel'n'or]

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

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

[ouskel'n'or]

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

[ucfoutu]

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


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

[ouskel'n'or]

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
A+ donc, je retourne à mes occupations

[Didier Gonard]

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

[ouskel'n'or]

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