XL 2016 Lister valeur unique

poussy67

XLDnaute Occasionnel
Supporter XLD
Bonjour le forum

J'ai une liste de numéro, dans liste j'ai plusieurs fois le même numéro. je voudrais exporter les numéro unique dans une autre feuille ou dans la colonne a coté de la référence unique mettre une valeur X. Actuellement j'avais une vba qui me supprimer les numéro unique.

merci d'avance pour votre aide

Ci-joint exemple
cdt poussy67
 

Fichiers joints

laetitia90

XLDnaute Barbatruc
bonjour poussy:)
une macro de l'ami JB :)qui le fait trés bien
VB:
Sub jb()
Dim m As Object, n As Object, c
Set m = CreateObject("Scripting.Dictionary")
For Each c In Feuil1.Range("a2", [a65000].End(3))
  m(c.Value) = m(c.Value) + 1
Next c
Set n = CreateObject("Scripting.Dictionary")
For Each c In m.keys
   If m(c) = 1 Then n(c) = ""
Next c
If n.Count > 0 Then Feuil2.[a2].Resize(n.Count, 1) = Application.Transpose(n.keys)
End Sub
 

job75

XLDnaute Barbatruc
Bonjour poussy67, Laetitia, Pierre,

Nul besoin de mettre des "X" en colonne B, il suffit d'utiliser le filtre avancé :
Code:
Sub ValeurUnique()
With Feuil10 'CodeName de la feuille filtrée
  .[B2] = "=COUNTIF(A:A,A2)=1"
  .[A:A].AdvancedFilter xlFilterCopy, .[B1:B2], Feuil1.[A1] 'Feuil1 est le CodeName de la feuille du résultat
  .[B2] = ""
End With
End Sub
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas