[VBA] comparaison de 2 fichiers excel

comparaison de 2 fichiers excel [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 11-05-2013 à 22:19:42    

Bonjour à tous, voilà on a 2 fichiers l'un s'appelant test et l'autre test2, mon fichier test est mis a jour régulièrement mais il a besoin d'une donnée particulière dans le fichier test2.  
 
 
contenu du fichier test.xls :
 
http://img11.hostingpics.net/pics/776534test.png
 
contenu du fichier test2.xls :
 
http://img11.hostingpics.net/pics/950254test2.png
 
On peut identifier les utilisateur de façon unique avec leur "id" présent dans chacun des fichiers, on voudrais dans le cas où on parle du même utilisateur ajouter les données de la colonne "code" de test2 aux utilisateurs correspondants dans test.
A savoir que ce sont bien sûr 2 fichiers excel et que je dois répéter plusieurs fois cette action car en réalité il y a des milliers d'utilisateurs.
 
Maintenant voilà mon problème :
 
J'obtiens l'erreur "mémoire insuffisante" après quelques recherche le problème viendrait du type de variable que j'utilise serait trop "petit" pour stocker le trop grand nombre de donnée présent dans les feuilles excel, mais j'avoue ne pas vraiment savoir où localiser le problème exactement, donc voici le code de la macro que j'utilise :
 

Code :
  1. Sub comparaison()
  3. 'Evite de voir les opérations intermédiaire sur les fichiers
  5. Application.ScreenUpdating = False
  7. 'déclarations des variables
  9. Dim i As Integer
  10. Dim j As Integer
  11. Dim Trouve As Integer
  13. Dim appExcel As Excel.Application
  16. Dim test2 As Excel.Workbook
  17. Dim tests2 As Excel.Worksheet
  18. Dim test As Excel.Workbook
  19. Dim tests As Excel.Worksheet
  21. 'parametrage d'appel des fichiers
  23. Set appExcel = CreateObject("Excel.Application" ) 'creation de l'objet permettant d'ouvrir le fichier excel
  25. Set test2 = appExcel.Workbooks.Open("chemin_vers_le_fichier_test2.xls" ) 'classeur
  26. Set tests2 = test2.Worksheets("nom_de_la_feuille" ) 'feuille
  28. Set test = appExcel.Workbooks.Open("chemin_vers_le_fichier_test.xls" )
  29. Set tests = test.Worksheets("nom_de_la_feuille" )
  32.     i = 2 'initialisation du compteur à 2 car la ligne 1 contient l'en-tête de chaque donnée
  34.     While (tests.Cells(i, 2).Value <> "" ) ' tant que dans le fichier test la cellule en (ligne i, colonne B) n'est pas vide
  35.         j = 2
  36.         Trouve = 0 'cette variable sert d'indicateur si c'est à 0 on a rien trouvé ou 1 on a trouvé la cellule correspondante
  37.        
  38.         While (tests2.Cells(j, 3).Value <> Null) & (Trouve = 0)
  39.            
  40.             'si la cellule du fichier test2 correspond à celle de test alors
  41.             If (tests2.Cells(j, 3).Value = _
  42.             tests.Cells(i, 2).Value) Then
  43.             Trouve = 1
  44.             'On copie le code à la ligne actuelle dans une nouvelle colonne
  45.                 tests.Cells(i, 3).Value = _
  46.                 tests2.Cells(j, 2).Value
  47.             'sinon on passe à la ligne suivante de icatfiltre
  48.             Else
  49.            
  50.             j = j + 1
  51.        
  52.             End If
  53.         Wend
  54.        
  55.         i = i + 1
  56.     Wend
  58.     'on ferme le classeur
  59.     test.Close
  60.     test2.Close
  61.    
  62. End Sub


 
Est-ce que je m'y suis mal pris concernant le code? je suis libre à toute proposition, à savoir que les 2 fichiers se trouve dans le même dossier.
 
Je vous remercie d'avance :)


Message édité par furil le 11-05-2013 à 22:20:57
Reply

Marsh Posté le 11-05-2013 à 22:19:42   

Reply

Marsh Posté le 12-05-2013 à 13:25:02    

 
           Bonjour.
 
           Ne sachant pas quel est le logiciel (et sa version) rattaché au fichier contenant le code ni la version de Windows
           ni la quantité de RAM de l'ordinateur, je ne peux qu'exprimer des doutes au lieu de certitudes …
 
           Si le code est bien contenu dans un fichier Excel, alors les déclarations d'objet & d'instance d'Excel sont inutiles  (lignes n°13 & 23)
           car en ouvrant un autre Excel, il y a donc moins de mémoire disponible ‼
 
           Ensuite pour une question d'efficacité, seule une boucle est nécessaire, celle servant à parcourir le fichier Test;
           pour trouver une correspondance dans le fichier Test2, voir l'aide de la méthode  Find  associée à un objet Range,
           comme dans le très récent sujet  Beug de programme  avec une problématique assez proche …
 
           Sinon une certitude : aucune ligne de code VBA est nécessaire ‼
 
           En effet, en plaçant la colonne Code Id en première dans le fichier test2,
           il suffit alors d'une simple formule  RECHERCHEV  dans le fichier test …

Message cité 1 fois
Message édité par Marc L le 12-05-2013 à 15:32:11
Reply

Marsh Posté le 12-05-2013 à 13:34:48    

Bonjour Marc L,
 
Merci de ta réponse, ensuite pour répondre à tes question la version d'excel utilisée est la 2007, la quantité de RAM est de 2Go, et le code est bel et bien contenu dans le fichier test.xls. Je vais donc maintenant chercher plus d'informations concernant Find et RechercheV . :) . Je donnerai des nouvelles quand j'aurai modifié tous ça :)
 
Encore merci et bonne journée :)

Reply

Marsh Posté le 12-05-2013 à 15:29:38    

Marc L a écrit :

Sinon une certitude : aucune ligne de code VBA est nécessaire ‼
 
En effet, en plaçant la colonne Code en première dans le fichier test2,
il suffit alors d'une simple formule  RECHERCHEV  dans le fichier test …


            Correction :   c'est évidemment la colonne Id qui doit être la première dans le fichier test2 …
 

Reply

Marsh Posté le 12-05-2013 à 18:17:06    

Rebonjour,
 
J'ai pu trouvé une "solution" à mon problème mais que pour les fichiers de petites tailles :
 

Code :
  1. Sub comparaison()
  2. 'Evite de voir les opérations intermédiaire sur les fichiers
  3. Application.ScreenUpdating = False
  4. 'déclarations des variables
  5. Dim i As Integer
  6. Dim j As Integer
  7. Dim Trouve As Integer
  11.     i = 2 'initialisation du compteur à 2 car la ligne 1 contient l'en-tête de chaque donnée
  12.     While (Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value <> "" )  ' tant que dans le fichier test la cellule en (ligne i, colonne B) n'est pas vide
  13.         j = 2
  14.         Trouve = 0 'cette variable sert d'indicateur si c'est à 0 on a rien trouvé ou 1 on a trouvé la cellule correspondante
  15.      
  16.      
  17.         While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> Null) & (Trouve = 0)
  18.          
  19.             'si la cellule du fichier test2 correspond à celle de test alors
  20.             If (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value = _
  21.             Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value) Then
  22.             Trouve = 1
  23.             'On copie le code à la ligne actuelle dans une nouvelle colonne
  24.                Workbooks("test.xlsm" ).Sheets(1).Cells(i, 3).Value = _
  25.                 Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 2).Value
  26.             'sinon on passe à la ligne suivante de icatfiltre
  27.             Else
  28.          
  29.             j = j + 1
  30.      
  31.             End If
  32.         Wend
  33.      
  34.         i = i + 1
  35.     Wend


 
Cependant pour les gros fichiers excel (contenant des milliers de lignes) j'obtient l'erreur suivant : Dépassement de capacité
 
J'avoue ne pas savoir comment adapter ce code avec un find mais voici un début:
 

Code :
  1. Sub comparaison2()
  4. Application.ScreenUpdating = False
  5.     Dim i As Integer
  6.     Dim firstAddress As String
  7.    
  9. While (Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value <> "" )
  11.     With Workbooks("test2.xlsm" ).Sheet(1).Range("C2:C5" )
  12.     Set c = .Find(valrech, LookIn:=xlValues, LookAt:=xlWhole)
  13.    
  14.    
  15.      If (c) Then
  16.    
  17.     MsgBox (c)
  18.     End If
  19.     End With
  20. Wend
  21.      
  22. End Sub


Message édité par furil le 12-05-2013 à 18:17:41
Reply

Marsh Posté le 12-05-2013 à 18:53:52    

 
           Concernant le dépassement de capacité du premier code, c'est dû au mauvais type des variables i & j.
           Autant ne rien définir que de déclencher une erreur :  mettre donc en commentaire les lignes n°5 & 6 !  (ou bien corriger le type)
 
 
           Quant au deuxième code, la variable i n'est pas initialisée, valrech non plus, un s manquant à Sheet en ligne n°11, …
 
           De toute manière avec la colonne Id en première dans le fichier test2, une simple formule  RECHERCHEV  dans une cellule suffit !
 
           Pourquoi donc vouloir utiliser VBA ?!


Message édité par Marc L le 12-05-2013 à 19:06:18
Reply

Marsh Posté le 13-05-2013 à 18:57:56    

Bonjour Marc L,
 
Merci pour ton aide, je n'ai pas utilisé au final ta solution mais je prends ça en compte pour d'autres développement en VBA qui me sera certainement très utile :) :
Ci-joint le code corrigé comme promis pour ceux que ça intéresse :

Code :
  1. Sub Comparaison ()
  3. 'Evite de voir les opérations intermédiaire sur les fichiers
  4. Application.ScreenUpdating = False
  5. 'déclarations des variables
  6. Dim i As Integer
  7. Dim j As Integer
  8. Dim Trouve As Integer
  12.     i = 2 'initialisation du compteur à 2 car la ligne 1 contient l'en-tête de chaque donnée
  13.     While (Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value <> "" )  ' tant que dans le fichier test la cellule en (ligne i, colonne B) n'est pas vide
  14.         j = 2
  15.         Trouve = 0 'cette variable sert d'indicateur si c'est à 0 on a rien trouvé ou 1 on a trouvé la cellule correspondante
  18.         While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> "" ) And (Trouve = 0)
  20.             'si la cellule du fichier test2 correspond à celle de test alors
  21.             If (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value = _
  22.             Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value) Then
  23.             Trouve = 1
  24.             'On copie le code à la ligne actuelle dans une nouvelle colonne
  25.                Workbooks("test.xlsm" ).Sheets(1).Cells(i, 3).Value = _
  26.                 Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 2).Value
  27.             'sinon on passe à la ligne suivante de test2
  28.             Else
  30.             j = j + 1
  32.             End If
  33.         Wend
  35.         i = i + 1
  36.     Wend
  37. End Sub

Reply

Marsh Posté le 13-05-2013 à 22:34:07    

 
           Bonsoir.
 
           Comme je l'ai indiqué sur l'autre forum, s'il y a beaucoup de lignes, définir les variables i & j en Integer est une connerie ‼
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed