Fonctions Tri() et Unique()

Version imprimable

1 pièce(s) jointe(s)

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:

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

16/02/2020, 10h58
Patrice740

Bonjour Jacques.

Edit : ~~Tu ne devrais pas utiliser le format .xls (Excel 2003 et avant), pour cet exemple (il ne fonctionne pas avec ces versions).~~ L'exemple ne fonctionne pas mais la fonction est utilisable avec les versions <2007
Les tableaux structurés n'existent que depuis Excel 2007 et le format .xlsm.

2 pièce(s) jointe(s)

Bonjour,

Fonction FiltreBD() 2 critères pour formulaire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim colVisu()
Option Compare Text
Private Sub UserForm_Initialize()
  colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8)
  Me.ComboBox1.List = UniqueTriéTbl([mabd[produit]])
  Me.ComboBox1.AddItem ""
  Me.ComboBox2.List = UniqueTriéTbl([mabd[opération]])
  Me.ComboBox2.AddItem ""
  filtre
  EnTeteListBox
End Sub
 
Private Sub ComboBox1_click()
  filtre
End Sub
 
Private Sub ComboBox2_click()
  Me.ListBox1.List = FiltreBD([mabd].Value, 1, Me.ComboBox1, colVisu, 2, Me.ComboBox2)
End Sub
 
Sub filtre()
  Me.ListBox1.List = FiltreBD([mabd].Value, 1, Me.ComboBox1, colVisu, 2, Me.ComboBox2)
 End Sub

Pièce jointe 538955

Boisgontier

16/02/2020, 18h25
78chris

Bonjour

Citation:

Envoyé par Patrice740

Tu ne devrais pas utiliser le format .xls (Excel 2003 et avant), pour cet exemple (il ne fonctionne pas avec ces versions).
Les tableaux structurés n'existent que depuis Excel 2007 et le format .xlsm.

Non, XLSX si pas de code VBA
16/02/2020, 19h15
boisgontierjacques

Bonsoir,

>Tu ne devrais pas utiliser le format .xls (Excel 2003 et avant)

Ce fichier contient une fonction UniqueTrié() réutilisable sous Excel <2007.

Ce n'est pas parce qu'il y a un exemple avec un tableau structuré que cette fonction n'est pas utilisable sans tableau structuré.

J'ai chez moi Excel 2002,Excel 2007,Excel 2010 et Excel 2019.

Boisgontier
16/02/2020, 20h51
mfoxy

Merci pour ces fonctions et l exemple 😉
Tu es vraiment un puit de science.
Et zou dans mon module xltools spécial table et range