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
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