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

[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.

[boisgontierjacques]

Bonjour,

Fonction FiltreBD() 2 critères pour formulaire.

Code :

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

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

Boisgontier

[78chris]

Bonjour

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

[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

[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