Filtre sur colonne date avec combobox

[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

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

 

[job75]

Re : Filtre sur colonne date avec combobox

Bonjour duplaly,

Pour le formatage des dates dans Cbx1 :

Private Sub UserForm_Initialize()
  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))
  For i = LBound(temp) To UBound(temp)
    temp(i) = Format(temp(i), "dd-mmm-yyyy")
  Next
  Me.Cbx1.List = temp
End Sub

Si vous voulez plus d'aide joignez le fichier.

A+

 

[duplaly]

Re : Filtre sur colonne date avec combobox

Merci beaucoup. Tout fonctionne bien.

 

[duplaly]

Re : Filtre sur colonne date avec combobox

Allo
Une dernière question
avec les codes dans le post, la colonne date est triée par jour mois année. Comment je peux faire pour avoir le tri par mois jour année.
Merci de toute aide.

 

[Paritec]

Re : Filtre sur colonne date avec combobox

Bonjour Duplaly le forum
en l'absence de Gérard
a+
papou😱

For i = LBound(temp) To UBound(temp)
    temp(i) = Format(temp(i), "mmm-dd-yyyy")
  Next

 

[duplaly]

Re : Filtre sur colonne date avec combobox

non, le tri se fait par jour encore

 

[Paritec]

Re : Filtre sur colonne date avec combobox

Re Duplaly le forum
ah oui j'ai pas compris , j'ai juste changé l'affichage dans la combo
a+
papou😱