Trier des données avant création fichier CSV

Version imprimable

Bonjour,

J'ai mis au point une routine pour lire des données d'un fichier excel afin des les exporter dans un fichier cvs.

Ma routine fonctionne, je voudrais à présent trier le 4ème champs de donnée avant de créer le fichier.

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
25
26
27
28
 
Sep = vbTab ' ";"
   Set Plage = Range(Range("PARAMETRES!Y16").Value & 4 & ":" & Range("PARAMETRES!Y17").Value & Nlig) '1ère ligne à exporter dernière ligne à exporter
      Open CheminFiche For Output As #1
 
 
 
         For Each oL In Plage.Rows
            If oL.Cells(1) = Range("saisie_DED!BQ3").Value Then
                  ' écriture exportée
                    Tmp = ""
                    For Each oC In oL.Cells
                         Tmp = Tmp & CStr(oC.Text) & Sep
                    Next
 
               '  données triées avant création fichier
 
 
 
              '
                 Print #1, Left(Tmp, Len(Tmp) - 1)
 
            End If
         Next
 
 
      Close
   Set Plage = Nothing

Mais je ne vois pas comment ajouter une fonction pour trier les données.

Merci d'avance pour votre aide

Christian

27/11/2022, 09h04
Philippe Tulliez

Bonjour,
Si la table source est un tableau structuré, vous pouvez utiliser une fonction générique comme celle que je propose dans l'un de mes billets titré Fonction générique - Trier un objet ListObject (Tableau structuré)

Bonjour Philippe,

Sauf erreur de ma part, étant qu'un petit joueur de codage.
il me semble que ce n'est pas un tableau structuré lorsqu'il s'agit d'un fichier ASCII (txt ou csv) celui que je veux trier, sans tête de colonne c'est un fichier txt ou csv destiné à une importation dans un logiciel comptable.
Code:

1 2 3 4 JS09 30/09/22 6226010000 JS09 1 FNP au 30/9/2022 G 3200,00 0 JS09 30/09/22 6226010000 JS09 1 FNP au 30/9/2022 A 3200,00 0 JS09 30/09/22 6226010000 JS09 2 FNP au 30/9/2022 G 4470,00 0 JS09 30/09/22 6226010000 JS09 2 FNP au 30/9/2022 A 4470,00 0
bonne journée
Christian