doublons

[anne]

salut,

ja'i un soucis sous excel,
je mets sous un meme fichier trois sous fichier et par la suite je désire éliminer les doublons pour une certaine colonne.

j'ai trouvé ce code mais pour un fichier de 10 lignes sa marche mais pas pour 23000 lignes, si vous avez une idée????

Sub Macromagnon()
ActiveSheet.UsedRange.EntireRow.Sort Key1:=ActiveSheet.UsedRange.Cells(1)
lin = Columns(1).Find('*', , , , , xlPrevious).Row
encore:
keep = False
'For Col = 1 To Rows(lin).Find('*', , , , , xlPrevious).Column
If Cells(lin, 8) <> Cells(lin - 1, 8) Then keep = True
'Next Col
If keep = False Then Rows(lin).Delete
lin = lin - 1
If lin > 1 Then GoTo encore
End Sub

 

[Charly2]

Bonjour anne, le forum,

Peut-être pourrais-tu tester ce code :

Sub Macromagnon()
Dim Ligne As Long, LigneDebut As Long, LigneFin As Long
Dim Contenu

ActiveSheet.UsedRange.EntireRow.Sort Key1:=ActiveSheet.UsedRange.Cells(1)
Ligne = 1
Do While Ligne < Range('A65536').End(xlUp).Row
Contenu = Cells(Ligne, 8)
If Cells(Ligne + 1, 8) = Contenu Then
LigneDebut = Ligne + 1
LigneFin = LigneDebut
Do While Cells(LigneFin + 1, 8) = Contenu
LigneFin = LigneFin + 1
Loop
Range(LigneDebut & ':' & LigneFin).EntireRow.Delete xlUp
End If
Ligne = Ligne + 1
Loop
End Sub

Amicalement
Charly

 

[Charly2]

Bonsoir anne, bonsoir le forum,

anne, je serais comblé si j'apprenais que tu as solutionné ton problème. Si ce n'est pas le cas, j'ai autre chose à te proposer mais j'attends ta réponse pour cela.

Amicalement
Charly