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
 

Pièces jointes

  • valeur unique.xlsm
    29.6 KB · Affichages: 35

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+
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07