L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Suppression des doublons dans une liste

Imprimer E-mail
4 mars 2014
Public Sub SupprDoublon()
Dim flleNouv As Worksheet, flleActu As Worksheet
Dim rDoublon As Range

Set flleActu = ActiveSheet
Set rDoublon = Selection
'exécute un filtre élaboré sans critère et sans doublon
rDoublon.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
'ajoute une feuille
Set flleNouv = Worksheets.Add
'sélectionne uniquement les cellules visibles
rDoublon.SpecialCells(xlCellTypeVisible).Copy
' on colle ces cellules dans la nouvelle feuille
flleNouv.Range("A1").PasteSpecial xlPasteAll
'on affiche tout pour annuler le filtre
flleActu.ShowAllData
'on efface tous le contenu de la plage
rDoublon.ClearContents
' on copie les données de la nouvelle feuille et on les colle dans la sélection
flleNouv.Range("A1").CurrentRegion.Copy rDoublon.Cells(1)
'on supprime la nouvelle feuille
Application.DisplayAlerts = False
flleNouv.Delete
Application.DisplayAlerts = True
End Sub