doublons

A

anne

Guest
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

Nous a quittés en 2006
Repose en paix
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

Nous a quittés en 2006
Repose en paix
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
 

Discussions similaires

Statistiques des forums

Discussions
312 963
Messages
2 093 995
Membres
105 906
dernier inscrit
aifa