Discussion :

[duplaly]

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 :

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

[casefayere]

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

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

[duplaly]

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