Surferdargent
XLDnaute Nouveau
VB:
Option Explicit
Sub Recopie_doublon()
Dim Cel As Range
Dim J As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For J = 2 To Range("F" & Rows.Count).End(xlUp).Row
Set Cel = .Columns("F").Find(what:=Range("F" & J), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Range("A" & J).Copy Cel.End(xlToRight).Offset(0, 1)
Range("I" & J).Copy Cel.End(xlToRight).Offset(0, 1)
End If
Next J
End With
Application.ScreenUpdating = True
Sheets("Feuil1").Activate
End SubBonjour
Besoin d'un petit coup de main j'ai un code qui est très pratique mais très lent car j'ai des données qui peuvent atteindre 200 000 lignes ( 15 min )...
Le code parcourt la colonne et lorsqu'il trouve un doublon dans la colonne F il copie les valeurs des colonnes A et J de la ligne trouvée sur la même ligne que la valeur de la cellule recherchée.
Dans le fichier joint j'ai mis le code avec un tableau avant et après macro
D'avance merci