doublons

anne · 26 Octobre 2005

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 · 26 Octobre 2005

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 · 1 Novembre 2005

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

doublons

anne

Guest

Charly2

Nous a quittés en 2006

Charly2

Nous a quittés en 2006

Discussions similaires