Filtre sur colonne date avec combobox

Version imprimable

Bonjour Tout le monde
J'ai un userform avec 4 combobox en cascade pour filtrer. Dans ma base de données, la colonne A8 contient uniquement des dates au format dd-mmm-yyyy.
Je voudrais alimenter la combo1 avec la colonne (A) date et j'aimerais que les dates soient affichées comme suit dans le combo dd-mmm-yyyy. Liste triée et sans doublon
je voudrais pouvoir filtrer par la date choisie.
Voici le code que j'utilse actuellement qui ne marche pas. Merci à l'avance de m'aider
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub UserForm_Initialize() 'ALIMETER COMBOBOX DATE Set f = Sheets("Données") Set mondico = CreateObject("Scripting.Dictionary") For Each c In Range(f.[A8], f.[A65536].End(xlUp)) mondico(c.Value) = c.Value Next c temp = mondico.items Call Tri(temp, LBound(temp), UBound(temp)) Me.Cbx1.List = temp End Sub Private Sub Cbx1_Click() Dim X As Long With ListView1 For X = .ListItems.Count To 1 Step -1 If .ListItems(X).Text <> Controls("Cbx" & 1) Then .ListItems.Remove X End If Next End With Combo_Cascade

Bonjour à tou(te)s, duplaly
un exemple que tu devrais pouvoir améliorer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Dim tb1, x As Long, derlg As Long, y As Long, tb2(), temp, f As Worksheet, mondico As Object
 
Private Sub UserForm_Initialize()
y = 0
'ALIMENTER COMBOBOX DATE
Set f = Sheets("Données")
derlg = f.Range("A" & f.Rows.Count).End(xlUp).Row
 
tb1 = f.Range("A8:A" & derlg)
Set mondico = CreateObject("Scripting.Dictionary")
For x = 1 To UBound(tb1)
  If Not mondico.exists(tb1(x, 1)) Then
    y = y + 1
    mondico.Add tb1(x, 1), CStr(tb1(x, 1))
  End If
Next x
temp = mondico.items
Tri_Tableau
Me.Cbx1.List = temp
End Sub
 
Sub Tri_Tableau()
Dim k As Integer
Dim ValTemp As Date
For y = 1 To UBound(temp)
  x = y
  For k = x + 1 To UBound(temp)
    If CDate(temp(k)) <= CDate(temp(x)) Then x = k
  Next k
  If y <> x Then
    ValTemp = CDate(temp(x)): temp(x) = CDate(temp(y)): temp(y) = CDate(ValTemp)
  End If
Next y
End Sub

tri basé sur l'exemple de ce lien
http://silkyroad.developpez.com/vba/tableaux/#LXIV-D

Bonne journée à tou(te)s

10/04/2012, 18h52
duplaly

Merci beaucoup. Je vais essayer de l'adapter à mon projet.