Afficher les uniques

[Microquant]

Bonjour,

J'ai une colonne A qui contient une liste de nombres incrémentée de 1 en 1 et une colonne B qui contient une partie de ces nombres, comment faire apparaitre dans une colonne B la liste des nombres uniques de la plage AB ,

Colonne A :
10
11
12
13
14
15
16

Colonne B :
10
12
14
15
16

Je voudrais faire apparaitre dans le colonne C :
11
13

Merci d'avance.

 

[soft]

Sub NombresUniques()
Dim I As Long, Y As Long, Z As Long, Trouve As Boolean
I = 1
Z = 1
While Range('A' & I) <> ''
Trouve = False
Y = 1
While Range('B' & Y) <> ''
If Range('A' & I).Value = Range('B' & Y).Value Then
Trouve = True
End If
Y = Y + 1
Wend
If Trouve = False Then
Range('C' & Z).Value = Range('A' & I).Value
Z = Z + 1
End If
I = I + 1
Wend

End Sub

 

[Microquant]

Merci beaucoup,
C'est exactement ce que je recherchais

 

[Dugenou]

Bonjour,

J'arrive trop tard, mais je vous le donne quand même, en formule matricielle (les deux séries de chiffres en D315 et E3:E12) :
{=INDEX($D$1:$D$15;PETITE.VALEUR(SI(NB.SI($E$3:$E$12;$D$3:$D$15)=1;'-';LIGNE($D$3:$D$15));LIGNE()-2);1)}

Cordialement