Microsoft 365 Fonctions Unique() et Tri()

[BOISGONTIER]

Bonjour,

Sur la nouvelle version d'Excel, il est apparu des fonctions Unique() et Tri()

Voici l'équivalent sous forme de fonction perso matricielle.

-sélectionner O20:Q33
=UniqueTrié(Tableau1;3)
-Valider avec maj+ctrl+entrée

Code dans un formulaire:

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

Pour la Fonction Recherchex(), voici l'équivalent sous forme de fonction perso.

http://boisgontierjacques.free.fr/fichiers/Cellules/RechxJB.zip

Boisgontier

 

[zebanx]

Bonjour JB, le forum,

Merci pour ce partage @JB

Bonne journée

 

[BOISGONTIER]

Filtre BD 2 critères pour formulaire

Formulaire liste multi-colonnes

http://boisgontierjacques.free.fr/fichiers/Formulaire/FiltreBD2criteresForm.xlsm

Boisgontier