|
Voici une méthode rapide très intéressante pour supprimer des doublons. Cette macro travaille dans la feuille active. La plage de référence est la colonne B. Les lignes en double sont supprimées.
Option Explicit
Sub ElimineDoublons()
'Ti
Dim Plage As Range, Cel As Range
Dim Col As New Collection, ASupprimer As Range
'illustration d'une methode d'élimination rapide des doublons dans une
'plage de cellules en utilisant une particularité intéressante d'un
'objet collection
'attention, on travaille ici sur la feuille active
With ActiveSheet
Set Plage = .Range("B1", .Range("B1").End(xlDown))
End With
For Each Cel In Plage
On Error Resume Next
Col.Add Cel, "_" & Cel '"_" pour accepter les valeurs numériques
If Err.Number <> 0 Then
If ASupprimer Is Nothing Then Set ASupprimer = Cel Else _
Set ASupprimer = Union(ASupprimer, Cel)
End If
Next Cel
'attention, ici les lignes en double sont entièrement supprimées
'il faudrait bien sûr adapter à ton cas particulier si tu ne veux
'pas une solution aussi radicales
If Not ASupprimer Is Nothing Then ASupprimer.EntireRow.Delete
End Sub
Date de création : 24/05/2005 - 18:59
Dernière modification : 25/05/2005 - 23:05
Catégorie : Feuille
Page lue 577 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 34
Haut 
