Autres rapidité

[chilo27]

Bonsoir le forum

Je vous sollicite de nouveau
pour accélérer un petit fichier que j'ai trouvé sur le net de Boisgonthier

Mon souhait est d'accélérer le traitement des données
j'ai des documents sur beaucoup de lignes

En vous remerciant par avance

 

[mapomme]

Bonsoir @chilo27,

Essayez ce code (tout se passe en mémoire):

Sub TEST()
Dim d1 As Object, f1 As Worksheet, f2 As Worksheet
Dim t, i&, clef, j&
   Set d1 = CreateObject("Scripting.Dictionary")
   d1.CompareMode = vbTextCompare
   Set f1 = Sheets("BD")
   Set f2 = Sheets("résultats")
   t = f1.Range("a1").CurrentRegion.Value
   For i = 1 To UBound(t)
      clef = t(i, 1) & "|" & t(i, 2)
      If Not d1.exists(clef) Then d1.Add clef, d1.Count + 1
      For j = 1 To UBound(t, 2)
         If t(i, j) <> "" Then t(d1(clef), j) = t(i, j)
      Next j
   Next i
   f2.Range("a1").CurrentRegion.Clear
   f2.Range("a1").Resize(d1.Count, UBound(t, 2)) = t
End Sub

 

[chilo27]

Bonsoir le forum, Mapomme



En postant ce fichier, j'ai pensé à vous JOB75, qui m'avait réaliser une recherche précédente
Je vais essayé et je reviens ver vous
Merci beaucoup

 

[mapomme]

Re,

Avec le fichier et 10.000 lignes de données. Durée environ 0.15 s.

 

[chilo27]

Bonsoir le Forum, Mapomme
La réponse n'a pas tardé, et merci d'avoir anticipé ma question
cela fonctionne bien j'ai essayé sur 20 000 lignes
Merci Beaucoup Mapomme

POUR L'aide

 

[chilo27]

Rebonsoir le forum, Mapomme

Juste pour une question
peut-on faire la même chose, sur deux onglets

Par exemple Bd Bd1 Bd2 etc
Dans l'attente d'une réponse et vous remerciant par avance

 

[mapomme]

Re,
Une version plus rapide qui prend sur mon PC environ 0,09 s pour 10.000 ligne de données.

 

[mapomme]

Juste pour une question
peut-on faire la même chose, sur deux onglets

Par exemple Bd Bd1 Bd2 etc
Dans l'attente d'une réponse et vous remerciant par avance

Pouvez-vous préciser (un petit exemple peut-être ) ?

 

[chilo27]

Bonjour le forum, Mapomme

J'ai pris connaissance de votre dernier message
J'essaie de le faire et j'utiliserai votre macro
En vous remerciant
si éventuellement je n'arrive pas je serai obligé de faire appel à vous

Merci beaucpoup

 

[chilo27]

Rebonjour le forum, Mapomme

Je suis parvenue à faire ce dont je voulais
En vous remerciant