Question tri variable tableau

**nouveauvba** · 01/02/2017, 13h27

Bonjour à tous,

j'ai découvert dernièrement les variables tableaux (je suis autodidacte sur vba), j'ai lu pas mal de choses, récupéré des bouts de codes (merci à ceux qui les ont écris) par ici ou par là, mais je butte actuellement sur un point.
Je pensais avoir terminé mon développement mais je me suis rendu compte qu'un calcul que j'effectuais était faux car mes données n'étaient pas triées par ordre croissant.

Pour le cheminement :
1 j'ouvre dans la mémoire du pc un fichier txt
2 je récupère les lignes dans un tableau
3 je découpe, split, scinde (comme vous voulez) les données avec le séparateur ;
4 je récupère ces données dans un dico et un tableau via ce bout de code :

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
For Z = 2 To UBound(TblRecup)
 
    'découpe la ligne en fonction du séparateur ;
        tblsplit = Split(TblRecup(Z), ";")
 
        'si la valeur de la 1 ère colonne n'existe pas l'inscrit dans le dico et récupère les valeurs 

       If Dico.Exists(tblsplit(2)) = False Then
        comp = 1
            Dico.Add tblsplit(2), tblsplit(8)
            j = j + 1
            ReDim Preserve tbl(1 To 10, 1 To j)
            tbl(1, j) = tblsplit(2)
            tbl(2, j) = tblsplit(8)                      
           Tbl(3, j) = Val(tblsplit(21)) *5
            tbl(4, j) = tblsplit(49)
            tbl(5, j) = tblsplit(50)
            tbl(6, j) = tblsplit(51)
            tbl(7, j) = comp
          
                                  
        Else
        
            'comme la valeur de la 1 ère colonne existe, on compte le nb de doublons et effectue la somme afin de faire la moyenne
            comp = comp + 1
            'permet de faire la moyenne 
            
            tbl(3, j) = (Val(tblsplit(21) *5 + Val(tbl(3, j))
 Voilà où se situe le problème. Comme les données récupérées par tbl(1, j) = tblsplit(2) ne sont pas tirées par ordre croissant la ligne de code ci dessus ajoute la valeur à un autre événement cf exemple en bleu :calim2:

            tbl(7, j) = comp
               
        End If
        
    Next Z

Objectif :

Par quel moyen je peux trier par ordre croissant la colonne 1 (et conserver toutes les données des autres colonnes) sans la nécessité d'écrire les valeurs dans excel, les trier, puis les relire dans une variable tableau, effectuer le calcul *5 et la moyenne? C'est peut être pas très clair

mais voici simplement illustré le problème

exemple en mémoire dans la variable

Résultat obtenu par mon code

A	16.66	z					
B	13	r	10+10+19 (Comme A existe il ajoute la quatrième valeur de A (A= 19) aux valeurs de B) 				
C	20.5	r

Résultat désiré

A	17.25	z					
B	10	r					
C	20.5	r

Merci par avance de votre précieuse aide.
Bonne journée

**Marc-L** · 01/02/2017, 13h36

Bonjour,

un cumul peut-être directement effectué via le dictionnaire s'il y a bien un identifiant …

Sinon joindre déjà le fichier texte source puis expliquer clairement le traitement.

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**Menhir** · 01/02/2017, 15h39

Dans Excel, il y a beaucoup plus de possibilités en mettant les données dans des cellule plutôt que de les mettre dans une variable tableau.

Pour info, tout ça :

1 j'ouvre dans la mémoire du pc un fichier txt
2 je récupère les lignes dans un tableau
3 je découpe, split, scinde (comme vous voulez) les données avec le séparateur ;

Peut se faire en une seule ligne avec un OpenTexte.
https://msdn.microsoft.com/fr-fr/lib.../ff837097.aspx

Et il devient très simple de faire ensuite un tri sur ces données :
https://msdn.microsoft.com/fr-fr/lib.../ff840646.aspx
ou bien (plus compliqué mais avec plus de possibilités) :
https://msdn.microsoft.com/fr-fr/lib.../ff195963.aspx

**nouveauvba** · 02/02/2017, 10h22

Bonjour,

Merci à vous deux pour vos pistes de recherches.

Menhir mon objectif était de ne pas ouvrir physiquement les données dans Excel dès le début (c'est ce que je faisait auparavant) afin d'optimiser la vitesse de traitement et la limitation induite par le nombre de ligne d'Excel (oui oui il m'arrive de ne pas avoir assez de lignes

). Mais votre piste parait plus légère que mon ancien code.

.

Marc-L est ce que A,B ou C peuvent servir d'identifiant?

Je continue à creuser et toujours preneur d'idées.

Merci

**Marc-L** · 02/02/2017, 15h09

Oui s'il s'agit de cumuler tous les A, tous les B, …

**nouveauvba** · 03/02/2017, 10h49

Bonjour,

Marc-L merci pour le retour mais j'avoue ne pas avoir été en mesure de trouver le code pour effectuer cela (comme je le disais je suis autodidacte en programmation).

Du coup je me suis attaché à la suggestion de Mehnir, en ouvrant le fichier (et en triant les données) puis en important les valeurs dans une variable tableau, par la suite j'utilise un dictionnaire afin d’effectuer mes calculs (avec le même principe de code que celui présenté lors de mon premier message).

Cette approche est beaucoup plus rapide (à confirmer) que mon ancien développement qui m'a amené à utiliser ce type de variables c'est super pratique

.

Il y a surement plus simple et encore plus rapide pour les puristes, mais pour le moment mon premier résultat est cohérent.

Si je passe en résolu cela verrouille le sujet ou des postes peuvent être ajouter?

Merci a vous 2

Nouveauvba