Supression doublons Tableau

[JBSB]

Bonjour à tous,

Tout d'abord, avant de poser cette question, j'ai consulter les sujets qui ont été enregistrés. Mon problème n'étant pas résolu, je cherche une aide. Voilà j'ai un tableau avec une étendue de B1 à BG50 (immaginons mais les lignes peuvent être variables, les colonnes sont fixes). Je recherche à extraire les doublons de l'ensemble de ce tableau (mon critère de doublon est la colonne B qui présente un numéro d'identification).

J'uilise le filtre élaboré mais je n'obtiens pas ce que je recherche :

ex :

J'ai 43 enregistrements avec 6 doublons dans la colonne B. Je filtre sur place (B1 à BG44), avec comme critère (colonne B) et "Extraire sans doublons). Le résultat est identique à ce que j'avais 44 lignes avec mes 6 doublons.

Merci de votre attention et bonne journée !


JBSB.

 

[Ti]

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.


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

 

[Gérard DEZAMIS]

Bonjour JBSB

Une colonne sup en A qui contiendrait

=SI(OU(B3=B2;B3=B4);"Doublon";"")

verifie si audessus ou endessous il y a une meme valeur (doublon) si c'est le cas elle effiche Doublon ou autre chose à volonté (un 1 est plus pratique pour compter ces occurences)

PB : Il est nécessaire que la base soir triée avec comme clé de tri la colonne B ...
Est(ce possible ?
Si Pb envoyer Petit fichier c'est bcp plus pratique pour se rendre compte du Pb rencontré

@+

 

[chris]

Bonjour
Si le filtre affiche les doublons c'est que les autres cellules ne sont pas identiques : comment savoir quelle est la bonne ligne et celles à supprimer si les infos diffèrent ?
Question à calrifier avant toute suppression.
Chris