Autres rapidité

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #2

Bonsoir @chilo27,

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

VB:

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 17 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #4

Re,

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

 

Pièces jointes

• chilo27- FusionLignesDoublons.- v1.xlsm

  388.5 KB · Affichages: 10

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 17 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 17 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #7

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

 

Pièces jointes

• chilo27- FusionLignesDoublons.- v2.xlsm

  388 KB · Affichages: 13

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2021

• #8

chilo27 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Février 2021

• #9

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Février 2021

• #10

Rebonjour le forum, Mapomme

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

 

Vote positif 0 Vote négatif