Discussion :

[boisgontierjacques]

Bonjour,

Sur la dernière version d'Excel, des fonctions TRI() et UNIQUE() sont apparues.
Voici pour un formulaire une fonction perso qui supprime les doublons sur une ou plusieurs colonnes et donne un résultat trié.

Code dans le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
  Me.ListBox1.List = UniqueTriéTbl(Range("mabd").Value, 3)
  Me.ListBox2.List = UniqueTriéTbl(Range("mabd[ville]").Value, 1)
  Me.ListBox3.List = UniqueTriéTbl(Range("mabd[[nom]:[prénom]]").Value)
End Sub

Boisgontier