Bonjour,
J ai un petit probleme avec ma macro. J ai une plage de 150 nombres environ et ma macro doit supprimer tous les doublons. Voici le code que j applique actuellement :
Ce code enleve quelques doublons mais pas tous... Pourquoi je ne sais pas...
Merci pour votre aide
Je joins ma plage de donnees
Benjamin
J ai un petit probleme avec ma macro. J ai une plage de 150 nombres environ et ma macro doit supprimer tous les doublons. Voici le code que j applique actuellement :
Code:
Sub Arrang()
Dim i, k, endline As Integer
'To save the useful data
Columns("A:A").Select
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
Range("A1").Select
endline = ActiveCell.End(xlDown).Row
' Pour connaitre la derniere ligne
For i = 1 To endline - 1
For k = i + 1 To endline
If (Range("A" & k).Value = Range("A" & i).Value) And k <= endline Then
Range("A" & k).Delete 'Shift:=xlUp
endline = endline - 1
End If
Next
Next
End Sub
Ce code enleve quelques doublons mais pas tous... Pourquoi je ne sais pas...
Merci pour votre aide
Je joins ma plage de donnees
Benjamin