XL 2016 Lister valeur unique

poussy67

XLDnaute Occasionnel
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+
 

poussy67

XLDnaute Occasionnel
Bonjour leatitia, pierrejean, job75


je vous remercie pour votre aide, cela fonctionne très bien.

Un grand merci
Bonne journée
cdt Poussy67
 

Haut Bas