Feuille dans un userform

[eon0206]

Bonjour,
Je n'arrive pas a résoudre ce problème :
1) une feuille1 avec 3 colonne dont une ou il y a des dates de saisies
2) un userform avec un combotext ou l'on choisi une date
et en fonction de la date choisie
je voudrai voir apparaitre dans ce userform la feuille1 dont avec le filtre sur la date choisie dans ce userform

ci joint le fichier
Merci de votre aide

 

[fanfan38]

Re : Feuille dans un userform

Bonjour
Dans ton exemple tu as 2 fois la même date...
Est ce que dans ce cas tu veux voir afficher les 2 réponses?

A+ François

 

[eon0206]

Re : Feuille dans un userform

oui toute les lignes qui contiennent la même date je voudrai les voir s'afficher,
merci A+Patrick

 

[fanfan38]

Re : Feuille dans un userform

Bonjour
J'espère que ça correspond à tes attentes...

A+ François

 

[eon0206]

Re : Feuille dans un userform

Merci beaucoup de cette reponse aussi rapide.

 

[Roland_M]

Re : Feuille dans un userform

bonjour,

salut à toi fanfan

voir ton code modifié pour éviter la limite du tableau en dur à 50 !

EDIT
j'ai rajouté le remplissage du ComboBox1.
il faut donc supprimer dedans RowSource listdate

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
Derlig = Range("A2").End(xlDown).Row
TotLig = -1
ListBox1.Clear
With ListBox1
 For Lig = 2 To Derlig
  If CDate(Cells(Lig, 1).Value) = CDate(ComboBox1.Value) Then
     .AddItem: TotLig = TotLig + 1
     For I = 0 To 2: .List(TotLig, I) = Cells(Lig, I + 1).Value: Next
  End If
 Next
End With
End Sub

Private Sub UserForm_Activate()
ComboBox1.Clear
Derlig = Range("A2").End(xlDown).Row
For Lig = 1 To Derlig
 If IsDate(Cells(Lig, 1).Value) Then ComboBox1.AddItem Cells(Lig, 1).Value
Next
ComboBox1.ListIndex = -1
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub