Discussion :

[spikethebloody75]

comparateur.zip


Bonjour,

Je suis actuellement entrain de mettre en place en VBA un outil de comparaison de fichiers. En effet ma fonction charge un fichier déposé sur le réseau et compare le contenu de ce fichier avec les données présent sur un onglet de la feuille excel.

J'utilise donc un tableau pour stocker les données du fichier. Je parcours ensuite ce fichier pour vérifier que les données de ce fichiers se trouvent dans l'onglet excel.

le problème est que mon fichier étant assez lourds (200 000 lignes), l'execution de mon code dure trop longtemps. Je suis obligé de interrompre car ça met vraiment du temps.

J'ai entendu dire qu'on pouvait optimiser le code VBA de sorte que les exécution soient plus rapides.

Est ce que quelqu'un saurait comment faire pour optimiser mon code svp ?

voici en pj le code en question.

Merci d'avance pour votre aide

[Menhir]

Etant donné que beaucoup de participants n'ouvrent pas les fichiers joints, tu devrais présenté le code lui-même dans un message (avec des balises CODE) si tu veux avoir plus de chance de réponse.

[spikethebloody75]

Désolé,
voici le code en question

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Sub comparaison()
 
 
Dim Cel As Range
Dim j As Long, NbLg As Long, Ligne As Long
Dim F1 As Worksheet, F2 As Worksheet, F3 As Worksheet, F4 As Worksheet
Dim i As Integer
Dim Colonnes
Dim LigneCopie As Boolean
'Call tab_faust
 
 
  Application.ScreenUpdating = False
  Application.DisplayStatusBar = False
  Application.Calculation = xlCalculationManual
  Application.EnableEvents = False
 
  Set F1 = Sheets("source")
  Set F2 = Sheets("ISIS")
  Set F3 = Sheets("Feuil3")
  Set F4 = Sheets("Feuil4")
 
  Colonnes = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")
  F3.Cells.Clear
  F4.Cells.Clear
 
' -------------------------------------- Stockage fichier FAUST
 
Dim FF As Integer, quoi As String, k As Long, n As Long
    FF = FreeFile
   Open "C:\Users\e552538\Desktop\Outils\Comparaison FAUST_ISIS\Nouveau dossier\AC\informations_2017.csv" For Input As #FF  'Nom complet du fichier à charger
   quoi = Input(LOF(FF), #FF)
   Close #FF
   titi = Split(quoi, vbCrLf)
   For k = 0 To UBound(titi)
   '  MsgBox titi(k) ' --->> on a là une ligne entière de 26 colonnes  >> titi(k) =Ligne K
      toto = Split(titi(k), ";")
        For n = 0 To UBound(toto)
            'MsgBox "la colonne " & n & " de la ligne " & k & " contient " & toto(n) ' >>> toto(n) Colonne n
        Next n
   Next k
' -------------------------------------- Fin chargement fichier
 
Ligne = 1
Ligne2 = 1
 
 
  With F2
    .Rows("1:1").Copy F3.Rows("1:1")                              ' La ligne des entêtes
    .Rows("1:1").Copy F4.Rows("1:1")                              ' La ligne des entêtes
     NbLg = .Range("A" & Rows.Count).End(xlUp).row                ' Nombre de ligne de la page "CIBLE"
     MsgBox NbLg
 
  End With
 
   For k = 1 To UBound(titi)                                       'Parcours du fichier FAUST
   'MsgBox titi(k)
 
    LigneCopie = False
    col_ligne = Split(titi(k), ";")
    'MsgBox col_ligne(4)
 
    Set Cel = F2.Columns("E").Find(what:=col_ligne(4), LookIn:=xlValues, lookat:=xlWhole)    ' Recherche dans onglet ISIS enregistrement correspondant au n° de doc
 
    If Not Cel Is Nothing Then
    'MsgBox "ok_present"
    ' On a trouvé le numéro de document
            For l = 0 To UBound(Colonnes)
           ' MsgBox (F2.Range(Colonnes(l) & Cel.row) & "__" & col_ligne(l))
 
                If F2.Range(Colonnes(l) & Cel.row) <> col_ligne(l) Then
 
                  If LigneCopie = False Then
                      Ligne = Ligne + 1                                                      ' Copie ligne FAUST
                      For m = 0 To UBound(Colonnes)
                      F3.Range(Colonnes(m) & Ligne) = col_ligne(m)
                      Next m
 
                      Ligne = Ligne + 1
                      For m = 0 To UBound(Colonnes)
                      F3.Range(Colonnes(m) & Ligne) = F2.Range(Colonnes(m) & Cel.row)
                      Next m
                      LigneCopie = True
                  End If
 
                End If
 
            Next l
 
 
    Else
     'MsgBox "ko_abs"
     ' Numéro de dossier pas trouvé
              Ligne2 = Ligne2 + 1                                                            ' On passe à la ligne suivante
 
             'parcourir la feuille 4 pour copie des champs du fichier FAUST
 
             For j = 0 To UBound(Colonnes)                                                   ' On passe en revue toutes les colonnes
             F4.Range(Colonnes(j) & Ligne2) = col_ligne(j)
 
             Next j
 
 
     End If
 
 
   Next k
 
 
 
  Application.ScreenUpdating = True
  Application.DisplayStatusBar = True
  Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
 
 
End Sub

[unparia]

Bonjour
Attends un peu là ...
ce problème fait manifestement suite à une autre discussion où tu disais :

pour éviter ce genre de bug, j'ai donc décider de charger ce fichier dans une variable tableau et d'utiliser ce tableau pour effectuer mes calculs.

je t'ai donné un code pour ce faire et la suite a été celle-ci :

J'ai résolu mon problème. En fait mon csv était au format Unix, en le convertissant au format Windows, le problème est résolu.

et je constate maintenant que tu as utilisé mon code, mais n'en a pas alimenté (ce que tu disais vouloir faire) une matrice ..

Qui plus est : tu repart des extractions faites par mon code ...

J'ai l'impression très nette de ce que tout est pour le moins assez "embrouillé", tant dans ton esprit que dans tes approches.

Je croyais vraiment que lorsque tu disais (et tu l'as confirmé) que tu voulais travailler sur la base d'une matrice, tu savais ce qu'était une matrice, comment la déclarer, la dimensionner, l'abonder ... puis l'utiliser (en extraire les valeurs)...
Je découvre que je me trompais, qu'il n'en était rien ...
Il m'est dans ces conditions plutôt "difficile" d'aller plus loin. Pour ce faire, il faudrait que tu saches au moins manipuler une matrice. Quand-même ...

[Algoplus]

Bonjour,

Comprendre ce que fait ce code n'est pas chose facilité par l'indentation !!

Pour les 200000 lignes du fichier titi, on parcours la feuille ISIS pour savoir si la ligne (le code , la référence...), parmi les quelques milliers (je suppose), existe.

Le fait de balayer (par le find) toute la feuille ISIS pourrait être remplacer par une recherche dans un tableau (array) ou encore plus rapide dans un dictionary (j'aime bien les dictionary) . on gagnerait alors beaucoup de temps.

Pour le reste du code, pas tout compris!

les champs du fichier ne sont, a priori, pas dans l'ordre des champs de la feuille ?

Quelques précisions seraient bien nécessaires.

A+