Formule recherche sans doublon

[s.salim]

Bonjour à tous,

Je suis à la recherche d'une formule excel ou VB me permettant faire un copier coller ou autre sans doublon

Voir la pièce jointe je crois être un peu confus...
En image c'est tjr mieux!!

Merci d'avance

 

[Monique]

Bonjour,

Tu trouveras un fichier qui fait ce que tu demandes ici :
<http://www.excel-downloads.com/html/French/forum/messages/1_149597_149597.htm>

 

[GP2]

Salut !

Inspiré d'un code que j'utilise souvent...

------------------------------------------------------

Sub tricodes()

Dim tabcodes() As Integer

Sheets("Dépense du date").Select

nb = 0
While Cells(15 + nb, 4) <> ""
nb = nb + 1
Wend

ReDim tabcodes(nb)

For i = 0 To nb - 1
tabcodes(i) = Cells(15 + i, 4)
Next

indice = 0
For i = 0 To nb - 1
Min = 9999
For j = i To nb - 1
If tabcodes(j) < Min Then
Min = tabcodes(j)
indicemin = j
End If
Next
tabcodes(indicemin) = tabcodes(i)
If Min <> Cells(2 + indice, 5) Then
Cells(3 + indice, 5) = Min
indice = indice + 1
End If
Next

End Sub