Doublons

F

Francis

Guest
<HTML>Bonjour,

Existe-t-il un moyen pour supprimer automatiquement des lignes "doublons"
dans une feuille Excel à une seule colonne ?
Merci

Cordialement
Francis Lagardesse</HTML>
 
T

Thierry

Guest
<HTML>Salut Francis,

deux moyens differents :

111) le filre élaboré (Menu / Données / Filtre / Filtre élaboré)
Cocher "Extraction sans doublon" ...

222) une macro VBA dans ce style : (attention la macro change la disposition de ton tableau avec un tri en colonne A, en supposant que tu as 1000 lignes)

Sub Nettoyage()
Columns("A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending

colIndex = 1
For rwIndex = 1 To 1000
If Cells(rwIndex, colIndex) = Cells(rwIndex + 1, colIndex) Then
Cells(rwIndex, colIndex).EntireRow.ClearContents
End If
Next rwIndex

Columns("A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
Range("a1").Select
End Sub

IL y a beaucoup mieux à faire avec EntireRow.Delete, mais j'ai un problème, car la range se décale au fur et à mesure que les rows sont supprimées...

Enfin comme çà fait un peu système D mais çà le fait...
(attention à élargir les "Columns("A").Select" à "Columns("A:X").Select" si tu travailles sur un tableau à plusieurs colonnes

@+Thierry
Bon Week End</HTML>
 

Statistiques des forums

Discussions
312 871
Messages
2 093 095
Membres
105 626
dernier inscrit
ko4t