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:
Pour la Fonction Recherchex(), voici l'équivalent sous forme de fonction perso.
Boisgontier
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:
VB:
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 SubPour la Fonction Recherchex(), voici l'équivalent sous forme de fonction perso.
Boisgontier
Dernière édition: