XL 2016 Lister valeur unique

[poussy67]

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

 

[laetitia90]

bonjour poussy
une macro de l'ami JB qui le fait trés bien

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

 

[pierrejean]

Bonjour poussy67

Vois si cela te convient

Edit: Bises laetitia

 

[job75]

Bonjour poussy67, Laetitia, Pierre,

Nul besoin de mettre des "X" en colonne B, il suffit d'utiliser le filtre avancé :

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]

Bonjour leatitia, pierrejean, job75


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

Un grand merci
Bonne journée
cdt Poussy67