Prendre données entre deux classeurs

[Laguich]

Bonjour à tous,

J'ai un classeur avec environ 67000 lignes sur 3 colonnes et un deuxième avec environ 16000 lignes sur 3 colonnes également.

J'ai fait une macro pour qu'il recherche dans le classeur 2 les réferences identiques dans le classeur 1 et y ajoute en 4eme colonne la valeur de la 3eme colonne du classeur 2.

Sub test()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("Base de données")
Set ws = wb.Worksheets("SOURCE")
 
Dim wb2 As Workbook
Dim ws2 As Worksheet
Set wb2 = Workbooks("SOURCECHERRE")
Set ws2 = wb2.Worksheets("Cherre")

Dim last_source As Range
Dim last_base As Range
 
Set last_source = ws.Range("a2:a67000")
Set last_base = ws2.Range("a1:a16000")
 
Dim row_source As Range
Dim row_base As Range
 
For Each row_source In last_source
    For Each row_base In last_base
        If row_source.Value = row_base.Value Then
            row_source.Offset(0, 4).Value = row_base.Offset(0, 3).Value
         End If
 
    Next
Next
End Sub

Cela marche quand je réduis à 80 lignes mais sur le total ça plante excel.
En faite il parcours toutes les lignes même si il a trouve la référence il continue la recherche jusqu'au bout avant de passer à la suivante.
Comment faut il proceder?

Merci d'avance.

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Bonjour,

pas testé bien sur, mais modifie peut être la boucle ainsi :

For Each row_source In last_source
    For Each row_base In last_base
        If row_source.Value = row_base.Value Then
            row_source.Offset(0, 4).Value = row_base.Offset(0, 3).Value
exit for         
End If
 
    Next
Next

bonne journée
@+

 

[Laguich]

Re : Prendre données entre deux classeurs

Effictevement je n'avais pas pensé à sortir de la boucle comme cela.
Mais malgré tout après test, cela fait planté malgré tout.
Est ce faisable OU trop gourmand au vue du nombre de ligne à parcourir?

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

peut être préférable de déterminer précisement les dernières lignes...

Set last_source = ws.Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Set last_base = ws2.Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)

 

[Laguich]

Re : Prendre données entre deux classeurs

Merci pour tes réponses rapides et très utile.
J'ai fais l'essai en passant le classeur 1 à 10000 au lieu de 68000 et cela fonctionne mais qd je passe a 20000 cela plante .
Peut etre que cela est vraiment trop lourd comme demande.

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

tu as tenu compte du post #4 ? sur quelle ligne le plantage ? et quel message d'erreur ?

 

[Laguich]

Re : Prendre données entre deux classeurs

J'ai bien tenu compte de l'exit for.
Quand je lance la procédure, Excel ne réponds plus si j'active une fenêtre car je pense que cela utilise trop de ressource. Mais pas de vrai erreur sur la macro en elle meme.

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

je parlais de la modif apportée post #4 sur la détermination de la dernière ligne...

Set last_source = ws.Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Set last_base = ws2.Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)

 

[Laguich]

Re : Prendre données entre deux classeurs

Oui j'ai bien pris cette modif également mais le probleme est le meme car je pense trop de donner à controler ou mauvaise méthode.

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

peut être mettre un "doevents" dans ta boucle...

For Each row_source In last_source
    For Each row_base In last_base
        DoEvents

le mieux serait aussi d'utiliser des tableaux virtuels, serait plus rapide en plus, tu trouveras plein d'exemples sur le forum...

 

[Laguich]

Re : Prendre données entre deux classeurs

Je ne peux pas joindre les fichier car trop lourd pour le forum

 

[Laguich]

Re : Prendre données entre deux classeurs

J'ai commencé une recherche sur tableau virtuel mais rien trouvé, aurais tu des sources ou lien à me donner.
Merci d'avance

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

regarde ce lien
Les tableaux

 

[Laguich]

Re : Prendre données entre deux classeurs

J'ai jété un oeil à tous cela mais la j'avous que je suis completement perdu.

 

[Pierrot93]

Re : Prendre données entre deux classeurs

Re,

tu as essayé le "DoEvents" et la detéermination précise des dernières lignes ??