Optimisation de tri sur tableau

Version imprimable

13/08/2012, 14h48
FanTasTik

Optimisation de tri sur tableau

Bonjour à tous,

J'ai une macro à faire relativement classique et je me pose des questions sur la méthode à employer.

Je dispose d'un tableau avec une vingtaine de colonnes correspondant à des critères et plusieurs centaines de lignes correspondant à des entrées.

Je dois effectuer plusieurs tris sur les données et sortir les tableaux des évènements correspondants dans plusieurs feuilles de calculs. (juste que là assez classique :D)

Un des critères est une date propre à chaque entrée, hors dans la majorité de mes tris, je ne prend que les entrées qui datent des X derniers jours (ce qui retire pas mal d'enregistrement).

En raison du nombre élevé d'éléments et par soucis d'optimisation, je souhaite donc trouver une manière de retirer d'abord les éléments qui n'ont pas la bonne date car cela retire environ 90% des données pour ensuite appliquer les critères plus spécifiques.

Comment faire ?

1°/ Je charge mes données dans un array à 2 dimensions.
Avec une boucle sur la colonne de date des éléments, je copie dans un nouveau tableau les éléments qui vont bien (et je continue à trier sur ce nouveau tableau)

2°/ Je charge mes données dans un array à 2 dimensions.
Puis je charge les index des éléments dans une collection, Je boucle sur le tableau et à chaque fois qu'un élèment ne convient pas, je retire son index de la collection ( et je trie en bouclant sur les index de la collection )

3°/ Je charge mes données dans un array à 2 dimensions.
Je met tous mes critères dans une grosse condition et je passe une seule fois sur chaque ligne ( par exemple, date < 10 jours & lieu = paris & pièce = moteur & note = 4 ). Le problème c'est que pour chaque feuille de calcul ou les critères diffèrent je dois repasser sur toutes les lignes alors que le critère date est tout le temps date < 10 jours ( par exemple, date < 10 jours & lieu = marseille & pièce = vitre )

Quelle est la méthode la plus rapide ? ( si il y en a d'autres je serais ravi de les connaître, je ne suis pas du tout habitué au VBA :p)

J'espère avoir été le plus clair possible, ce n'est pas évident ^^

Bonne journée :p

Bon alors je me répond à moi-même pour ceux que ça intéressent.

J'ai trouvé une solution (il y en a surement d'autres) qui est rapide et opti.

ça correspond à la solution 1 mais au lieu de copier dans un tableau différent je copie dans le même tableau au fur et à mesure que je le parcours (j'ai donc une économie de mémoire, et peut-être même de temps).

Voilà je montre l'algo qui est pas facile à comprendre comme ça, si quelqu'un veut des précisions n'hésitez pas à poster :

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
 
    Dim Tblo()
    Dim j As Integer
    Dim DernLigne As Long
    j = 2
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'choppe la dernière ligne des données
    Tblo = Range("A1:Z" & DernLigne).Value 'charge le tableau à la bonne taille
 
    Dim num_element As Integer
    Dim nouveau_num As Integer
    nouveau_num = 1
 
    For num_element = 1 To DernLigne 'on parcours le tableau
        If   'Mettre ici votre critère à valider
            For i = 1 To nombre_colonne
                Tblo(nouveau_num, i) = Tblo(num_element, i) 'on écrit cette élément à la position nouveau_num
            Next
            nouveau_num = nouveau_num + 1 'on incrémente nouveau_num à chaque élément qui valide le critère
        End If
    Next
 
   DernLigne = nouveau_num - 1 'on retire 1 car y a la dernière itération à virer
 
'Tblo contient entre 1 et DernLigne les valeurs filtrées, attention à ne pas utiliser Ubound(Tblo) car entre DernLigne et Ubound(Tblo) il y a d'anciennes valeurs

Edit : petite faute de syntax

14/08/2012, 16h05
mercatog

Ca m'étonne tel que proposé fonctionne comme voulu.
16/08/2012, 09h08
FanTasTik

Quel est le passage qui gêne ?

Amicalement,
16/08/2012, 15h57
mercatog

Citation:

Code:

Tblo(nouveau_num, i) = Tblo(num_element, i)
17/08/2012, 01h25
FanTasTik

1 pièce(s) jointe(s)

voilà plutôt qu'un long discours, un petit schéma qui résume le principe.

Après si c'est la "syntaxe" qui gêne, ça peut paraître contre-intuitif mais on utilise ce principe dans pas mal de langage, (pour décaler des lignes d'un tableau en C par exemple je faisais des truc similaire Tblo[i-1]=Tblo[i], c'est ça qui m'a donné l'idée pour l'adapter à mon problème)

Cordialement,
17/08/2012, 01h45
mercatog

Là on est d'accord sur le principe mais ton tableau de donnée est tab_AT et non Tblo qui n'est même pas dimensionné, non?
17/08/2012, 09h00
FanTasTik
Exact j'ai oublié de remplacer une variable dans le code,
Il faut mettre Tblo à la place de tab_AT (j'ai changé les noms des variablesp our plus de clarté et j'avais oublié celle-là).

Edit : voilà code corrigé.

Edit 2 : tu sais comment faire pour définir de manière dynamique mon range pour les lettres. pour les chiffres j'ai pu mettre une variable mais je ne sais pas comment faire pour les lettres.
Code:

1 2 3 DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'choppe la dernière ligne des données Tblo = Range("A1:Z" & DernLigne).Value 'charge le tableau à la bonne taille

Si on cherche la dernière ligne remplie sur la colonne 1 et la dernière colonne remplie sur la ligne 1

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim LastLig As Long
Dim LastCol As Integer
Dim Tblo
 
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row    'dernière ligne remplie sur colonne 1
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column    'dernière colonne remplie sur ligne 1
    Tblo = .Range(.Cells(1, 1), .Cells(LastLig, LastCol))
    'ou bien
    Tblo = .Range("A1").Resize(LastLig, LastCol)
End With

17/08/2012, 14h43
FanTasTik

Merci bien,