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