Filtre automatique dans userform

duplaly · 13 Juillet 2011

Bonjour tout le monde
Je joins mon fichier pour mieux m'aider.
je veux mettre des filtres avec les cbox dans mon fichier et je n'arrive pas. Surtout, je veux pouvoir filtrer sur la colonne A qui contient des dates.
Un coup de pouce sera très apprécié de votre part.

J'ai mis un bouton recherche, mais peut être que je devrais y aller avec l'option combobox change. Vous me direz quoi faire.
Merci

jpb388 · 16 Juillet 2011

Re : Filtre automatique dans userform

Bonjour
example combo1

Private Sub ComboBox1_Change()
Me.ComboBox3.Clear ' vide la combo3 pour l'exemple
Set v = Sheets("Données")
With v.Range("a8:a" & Range("a65536").End(xlUp).Row)
'la recherche s'effectue sur le jour et correspond a la cellule trouvé
Set c = .Find(Day(Me.ComboBox1.Value), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
' on compare les 2 dates
If c = DateValue(Me.ComboBox1.Value) Then
' si oui on charge le nom correspondant à la date dans la combo nom
Me.ComboBox3.AddItem Range("c" & Range(c.Address).Row).Value
End If
' on continue la recherche si d'autre nom on travaillé le même jour
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

bon courage et bravo pour l'userform il m'a plu
jpb

Filtre automatique dans userform

duplaly

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

Discussions similaires

Filtre automatique dans userform

duplaly

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency