Enlever les doublons

[fouedou77]

Bonjour,

Quelqu'un peut-il me dire comment faire pour isoler les doublons dans un tableau en les masquants par exemple ?


Merci beaucoup !

 

[jmd2]

Re : Enlever les doublons

hello

fais une recherche sur le forum, mot clé "doubon"

********************************************************

 

[robinhood]

Re : Enlever les doublons

Supprimer les doublons

1. Sélectionnez toutes les cellules de votre liste
2. Sélectionnez le Menu Données, Filtre, Filtre élaboré...
3. Indiquez vos cellules dans la zone Plage
4. Cochez la zone Extraction sans doublon
5. Cochez si besoin la zone Copier sur un autre emplacement
6. Indiquez alors les cellules concernées par l'emplacement souhaité
7. Validez en cliquant sur le bouton OK

A NOTER : Les données filtrées ne peuvent être copiées que sur la feuille active

 

[robinhood]

Re : Enlever les doublons

Coloriser les doublons d'une colonne avec la mise en forme conditionnelle et la fonction NB.SI()

1. Sélectionnez les cellules concernées de la colonne A
2. Sélectionnez le Menu Format, Formatage conditionnel...
3. Sélectionnez l'option la formule est dans la zone condition1
4. Tapez la formule suivante :

Formule est =NB.SI(A:A;A1)>1
5. Cliquez sur le bouton Format...
6. cliquez sur l'onglet Motifs...
7. Sélectionnez la couleur souhaitée
8. Cliquez sur le bouton OK pour valider votre choix

 

[BOISGONTIER]

Re : Enlever les doublons

Bonjour,

>A NOTER : Les données filtrées ne peuvent être copiées que sur la feuille active

Pour extraire vers une autre feuille, il faut se placer dans la feuille où on veut le résultat (onglet résultatExtract)

Le filtre élaboré

Sub supdoublons()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set champ = Range("A1:A" & [A65000].End(xlUp).Row)
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Application.CountIf(champ, Cells(i, 1)) > 1 Then
      Cells(i, 1).Delete Shift:=xlUp  ' ou Rows(i).Delete
    End If
  Next i
  Application.Calculation = xlAutomatic
End Sub

Si triés:

Sub supDoublonsTradi()
   Application.ScreenUpdating = False 
   Application.Calculation = xlCalculationManual 
   [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
   For i = [A65000].End(xlUp).Row To 2 Step -1
     If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic 
End Sub

JB

 

[jmd2]

Re : Enlever les doublons

re

par formule, sans VBA

http://cjoint.com/?fEjxEWxXRJ

*****************************************************