Conserver uniquement les valeurs uniques

L

lolopolo

XLDnaute Nouveau
Bonjour,

Apres plusieurs recherches sur le forum et google, je vous demande de l'aide pour une opération qui me semble simple mais que je n'arrive pas à réaliser en formule.

Comment sur une colonne (50 000 entrées), conserver uniquement les données uniques et supprimer tous les doublons.
En exemple

Sur la liste suivante, je ne veux conserver que A,D,E,F,H
A
B
B
C
C
C
D
E
F
G
G
H

La fonction doublons d'excel ne m'interesse pas car elle me garde toutes les valeurs et supprime les doublons... Moi je cherche les valeurs uniques :)
Un grand merci!
 
Trier par date Trier par votes
mromain

mromain

XLDnaute Barbatruc
Re : Conserver uniquement les valeurs uniques

Bonjour lolopolo et bienvenue sur le forum,
Bonjour pierrejean ;)


Voici un essai :
VB: 
'*** Les données à analyser sont en colonne A de la feuille "Feuil1"
Sub test()
Dim derLigne As Long, iLigne As Long, liste As String
    
    liste = ";"
    
    With ThisWorkbook.Sheets("Feuil1")
        
        'calculer la dernière ligne contenant les données
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        
        'bouler sur toutes les lignes (de 1 à derLigne)
        For iLigne = derLigne To 1 Step -1
        
            'si ce n'est pas une valeur unique (dans la colonne A)
            If Application.WorksheetFunction.CountIf(.Range("A:A"), .Range("A" & iLigne)) <> 1 Then
                'ajouter la valeur = la liste
                liste = liste & .Range("A" & iLigne).Text & ";"
            End If
            
            'si la valeur de cette ligne est dans la liste
            If InStr(liste, ";" & .Range("A" & iLigne).Text & ";") <> 0 Then
                'effacer la ligne
                .Rows(iLigne).Delete
            End If
            
        Next iLigne
    End With
End Sub
a+
 
Dernière édition:
Vote positif 0 Vote négatif
L

lolopolo

XLDnaute Nouveau
Re : Conserver uniquement les valeurs uniques

mromain à dit:
Bonjour lolopolo et bienvenue sur le forum,
Bonjour pierrejean ;)


Voici un essai :
Code: 
[COLOR=GREEN]'*** Les données à analyser sont en colonne A de la feuille "Feuil1"[/COLOR]
[COLOR=BLUE]Sub[/COLOR] test()
[COLOR=BLUE]Dim[/COLOR] derLigne [COLOR=BLUE]As Long[/COLOR], iLigne [COLOR=BLUE]As Long[/COLOR], liste [COLOR=BLUE]As String[/COLOR]
    
    liste = ";"
    
    [COLOR=BLUE]With[/COLOR] ThisWorkbook.Sheets("Feuil1")
        
        [COLOR=GREEN]'calculer la dernière ligne contenant les données[/COLOR]
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        
        [COLOR=GREEN]'bouler sur toutes les lignes (de 1 à derLigne)[/COLOR]
        [COLOR=BLUE]For[/COLOR] iLigne = derLigne [COLOR=BLUE]To[/COLOR] 1 [COLOR=BLUE]Step[/COLOR] -1
        
            [COLOR=GREEN]'si ce n'est pas une valeur unique (dans la colonne A)[/COLOR]
            [COLOR=BLUE]If[/COLOR] Application.WorksheetFunction.CountIf(.Range("A:A"), .Range("A" & iLigne)) <> 1 [COLOR=BLUE]Then[/COLOR]
                [COLOR=GREEN]'ajouter la valeur = la liste[/COLOR]
                liste = liste & .Range("A" & iLigne).Text & ";"
            [COLOR=BLUE]End If[/COLOR]
            
            [COLOR=GREEN]'si la valeur de cette ligne est dans la liste[/COLOR]
            [COLOR=BLUE]If[/COLOR] InStr(liste, ";" & .Range("A" & iLigne).Text & ";") <> 0 [COLOR=BLUE]Then[/COLOR]
                [COLOR=GREEN]'effacer la ligne[/COLOR]
                .Rows(iLigne).Delete
            [COLOR=BLUE]End If[/COLOR]
            
        [COLOR=BLUE]Next[/COLOR] iLigne
    [COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

a+
Cliquez pour agrandir...


Merci pour cette réponse mais c trop compliqué pour moi
 
Vote positif 0 Vote négatif
T

Tonneau91

XLDnaute Nouveau
Re : Conserver uniquement les valeurs uniques

mromain à dit:
Bonjour lolopolo et bienvenue sur le forum,
Bonjour pierrejean ;)


Voici un essai :
VB: 
'*** Les données à analyser sont en colonne A de la feuille "Feuil1"
Sub test()
Dim derLigne As Long, iLigne As Long, liste As String
    
    liste = ";"
    
    With ThisWorkbook.Sheets("Feuil1")
        
        'calculer la dernière ligne contenant les données
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        
        'bouler sur toutes les lignes (de 1 à derLigne)
        For iLigne = derLigne To 1 Step -1
        
            'si ce n'est pas une valeur unique (dans la colonne A)
            If Application.WorksheetFunction.CountIf(.Range("A:A"), .Range("A" & iLigne)) <> 1 Then
                'ajouter la valeur = la liste
                liste = liste & .Range("A" & iLigne).Text & ";"
            End If
            
            'si la valeur de cette ligne est dans la liste
            If InStr(liste, ";" & .Range("A" & iLigne).Text & ";") <> 0 Then
                'effacer la ligne
                .Rows(iLigne).Delete
            End If
            
        Next iLigne
    End With
End Sub
a+
Cliquez pour agrandir...

Bonjour,

Je me permets de réactiver la discussion.

Le code ci-dessus marche parfaitement lorsque l'on souhaite conserver les valeurs uniques d'une seule colonne.

Pour ma part, je souhaite conserver les lignes uniques d'une base de données, c'est à dire incluant plusieurs colonnes.

J'essaie d'adapter le code sans grand succès.

Avez-vous une piste à me conseiller ?

D'avance, merci :)
 
Vote positif 0 Vote négatif
T

Tonneau91

XLDnaute Nouveau
Re : Conserver uniquement les valeurs uniques

Bonjour Pierrejean,

Merci beaucoup pour votre réponse.

En fait c'est une combinaison de valeurs uniques qui m'intéresse.

Exemple pour cette base de données simplifiée :

A A B
C C A
A A C
A A B
A C A
A A C

Je voudrais obtenir seulement les lignes en rouge, c'est à dire celle qui sont uniques dans la base.

Seulement, certains caractères sont en doublons si on ne regarde qu'une seule colonne : Peu importe, je cherche à identifier les combinaisons uniques.

Encore merci de m'avoir répondu si vite.
 
Vote positif 0 Vote négatif
T

Tonneau91

XLDnaute Nouveau
Re : Conserver uniquement les valeurs uniques

Bonjour,

Je pense avoir trouvé la solution en adaptant le premier code. Je transforme le Countif en Countifs en intégrant mes autres critères (c'est à dire mes autres colonnes). Ca à l'air de marcher.

Si vous avez des remarques je suis preneur, je suis novice en vba.

Ca donne ceci pour moi :
Code: 
Sub test()
Dim derLigne As Long, iLigne As Long, liste As String
   
    liste = ";"
   
    With ThisWorkbook.Sheets("Feuil1")
       
        'calculer la dernière ligne contenant les données
       derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
       
        'bouler sur toutes les lignes (de 1 à derLigne)
       For iLigne = derLigne To 1 Step -1
       
            'si ce n'est pas une valeur unique (dans la colonne A)
           If Application.WorksheetFunction.CountIfs(.Range("A:A"), .Range("A" & iLigne), .Range("B:B"), .Range("B" & iLigne), .Range("C:C"), .Range("C" & iLigne)) <> 1 Then
                'ajouter la valeur = la liste
               liste = liste & .Range("A" & iLigne).Text & ";"
            End If
           
            'si la valeur de cette ligne est dans la liste
           If InStr(liste, ";" & .Range("A" & iLigne).Text & ";") <> 0 Then
                'effacer la ligne
               .Rows(iLigne).Delete
            End If
           
        Next iLigne
    End With
End Sub
 
Vote positif 0 Vote négatif
BOISGONTIER

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Conserver uniquement les valeurs uniques

Bonsoir,

Code: 
Sub NonDoublons()
 Set d = CreateObject("Scripting.Dictionary")
 Tbl = Range("a2:c" & [a65000].End(xlUp).Row)
 For i = LBound(Tbl) To UBound(Tbl)
   clé = Tbl(i, 1) & "|" & Tbl(i, 2) & "|" & Tbl(i, 3)
   d(clé) = d(clé) + 1
 Next i
 j = 0
 Dim b(): ReDim b(1 To d.Count, 1 To 3)
 For Each c In d.keys
   If d(c) = 1 Then
     j = j + 1
     a = Split(c, "|")
     b(j, 1) = a(0): b(j, 2) = a(1): b(j, 3) = a(2)
   End If
 Next c
 [e2].Resize(j, 3) = b
End Sub

0,03 sec pour 5.000 lignes

JB
 

Pièces jointes

  • NonDoublons2.xls
    367.5 KB · Affichages: 151
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Autres Récupération des noms + équipes dans une liste
Réponses
2
Affichages
120
DJunqueira
D
D
  • Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
339
Phil69970
Phil69970
M
  • Question
Microsoft 365 Comptage valeurs uniques par groupe de produits
Réponses
2
Affichages
243
Mongo
M
R
  • Résolu(e)
XL 2021 Macro copier-coller colonnes précédentes
Réponses
12
Affichages
365
Retraite
R
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
375
bérylion
B
I
  • Résolu(e)
Microsoft 365 Supprimer les doublons en conservant les valeurs vides
Réponses
2
Affichages
236
ivan27
I
J
  • Question
Microsoft 365 extraction VBA avec formule si
Réponses
10
Affichages
328
Phil69970
Phil69970
L
  • Question
XL 2021 recherche de valeurs
Réponses
3
Affichages
139
sylvanu
sylvanu
Roland_M
  • Question
XL 2016 Tri (Filtrer) ne tri pas toutes les colonnes !?
Réponses
6
Affichages
285
Roland_M
Roland_M
K
  • Question
XL 2021 Macro pour export données
Réponses
14
Affichages
288
konzo
K

Membres actuellement en ligne

5 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 088
Messages
2 085 199
Membres
102 816
dernier inscrit
bolivier