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