Extraire des dates d'une base vba excel

Merci pour ta réponse !
j'ai essayé ton code en l'adaptant mais ça ne marche pas
Je n'ai pas précisé certain point comme les dates de début et de fin sont dans des TextBox avec des valeurs par défaut :
TextBoxDateDebut.Text = "01/01/2012"
TextBoxDateFin.Text = Date

MON CODE :

Private Sub Rechercher()
Worksheets("BDD").Activate
' Rechercher les données en fonction des critères de recherche

Dim lgLigDeb As Long
Dim Critere1 As String
Dim Critere2 As String
Dim Critere3 As String
Dim Critere4 As String
Dim Critere5 As String
Dim Critere6 As String
Dim Critere7 As String 'Critere pour filtrer sur les dates

Critere1 = "*"
If ComboBoxCivil.Value <> "" Then Critere1 = ComboBoxCivil.Value

Critere2 = "*"
If ComboBoxNom.Value <> "" Then Critere2 = ComboBoxNom.Value

Critere3 = "*"
If ComboBoxCommunes.Value <> "" Then Critere3 = ComboBoxCommunes.Value

Critere4 = "*"
If ComboBoxLieu.Value <> "" Then Critere4 = ComboBoxLieu.Value

Critere5 = "*"
If ComboBoxLocal.Value <> "" Then Critere5 = ComboBoxLocal.Value

If CheckBox1 = True Then Critere6 = "Urgent"
If CheckBox1 = False Then Critere6 = "*"

Critere7 = "*"
'ici manque le code dont j'ai besoin

ListBoxLocataire.Clear

' Boucle de la 2me à la dernière ligne de la feuille BDD
For lgLigDeb = 2 To Range("A" & Cells.Rows.Count).End(xlUp).Row
If Range("G" & lgLigDeb).Value Like Critere1 And Range("H" & lgLigDeb).Value Like Critere2 And Range("C" & lgLigDeb).Value Like Critere3 And Range("D" & lgLigDeb).Value Like Critere4 And Range("E" & lgLigDeb).Value Like Critere5 And Range("I" & lgLigDeb).Value Like Critere6 And Range("F" & lgLigDeb).Value Like Critere7 Then
With ListBoxLocataire
.AddItem Range("A" & lgLigDeb).Value
.List(.ListCount - 1, 1) = Range("B" & lgLigDeb).Value
.List(.ListCount - 1, 2) = Range("C" & lgLigDeb).Value
.List(.ListCount - 1, 3) = Range("D" & lgLigDeb).Value
.List(.ListCount - 1, 4) = Range("E" & lgLigDeb).Value
.List(.ListCount - 1, 5) = Range("F" & lgLigDeb).Value
.List(.ListCount - 1, 6) = Range("G" & lgLigDeb).Value
.List(.ListCount - 1, 7) = Range("H" & lgLigDeb).Value
.List(.ListCount - 1, 8) = Range("I" & lgLigDeb).Value
.List(.ListCount - 1, 9) = lgLigDeb

End With
End If

Next lgLigDeb

End Sub

Si tu peux m''aider avec ça ...

Merci d'avance !

Ok merci, ça marche pour le Critere6
par contre, pour le Critere7 ça ne marche pas, je pense qu'il faudrait un code plutôt dans ce style (j'arrive pas à le traduire):

Si les dates de la colonne F >= TextBoxDateDebut et si les dates de la colonne F <= TextBoxDateFin alors Critere7 = les dates trouvées de la colonne F

De plus, Je n'arrive pas à avoir une valeur pour CDate(TextBoxDateFin) que j'ai défini dans l'initialisation du UserForm par TextBoxDateFin.Text = Date

Je galère trop !!!!

Si tu as besoin je peux envoyer le fichier.
Encore merci pour tes efforts !

Ok, donc voilà le lien du fichier à télécharger :

http://cjoint.com/?3CouS3MXefa

Vous m'excuserez mais le fichier est encore en chantier...

Merci pour l'intêret porté !

Je veux me servir de ce fichier comme un outil de gestion de maintenance :
Traçabilité des demandes, recherche des demandes par criteres, suivi des actions correctives, création d'ordre de travail...
la partie traitée est la traçabilité et le suivi des demandes est quasi terminé (me reste à filtrer les demandes sur un intervalle de temps)
Le reste je traiterai plus tard !

Salut,
Désolé j'ai regardé tardivement tes corrections donc voilà,
j'ai testé le fichier mais ça ne marche pas !?!
Quand je change la valeur de TextBoxDateDebut, par par exemple 01/02/2012, le filtre ne fonctionne pas...
je ne vois plus quoi faire...
si tu as une autre idée, je suis preneur...
Merci