Myst
XLDnaute Occasionnel
Bonjour
je ne parviens pas a finaliser mon projet
Dans le fichier joint il y a un Userform "Module de recherche" ou je saisie une date de début et une date de fin dans les textbox 2 et 3 et je voudrais en cliquant sur le "CommandButton2" afficher dans la feuille "RECHERCHE" toutes les lignes ayant la cellule en colonne B de la feuille "Base de donnée" comprise entre les deux dates
J'ai le code ci-dessous que m'avais fait l'ami PARITEC a l'époque et que je n'arrive pas a adapter
si quelqu'un peu m'aider, merci
je ne parviens pas a finaliser mon projet
Dans le fichier joint il y a un Userform "Module de recherche" ou je saisie une date de début et une date de fin dans les textbox 2 et 3 et je voudrais en cliquant sur le "CommandButton2" afficher dans la feuille "RECHERCHE" toutes les lignes ayant la cellule en colonne B de la feuille "Base de donnée" comprise entre les deux dates
J'ai le code ci-dessous que m'avais fait l'ami PARITEC a l'époque et que je n'arrive pas a adapter
si quelqu'un peu m'aider, merci
VB:
Private Sub CommandButton2_Click()
Dim i&, x As Date, y As Date, fin&
If IsDate(TextBox2) And IsDate(TextBox3) Then
Application.ScreenUpdating = 0
x = CDate(TextBox2): y = CDate(TextBox3)
With Sheets("Base de donnee")
.Unprotect
If .FilterMode Then .ShowAllData
fin = .Cells(.Rows.Count, 1).End(xlUp).Row
.Rows.Hidden = 0
For i = fin To 2 Step -1
If .Cells(i, 1) >= x And .Cells(i, 1) <= y Then .Rows(i).Hidden = 0 Else .Rows(i).Hidden = 1
Next i
End With
Else
With Sheets("Base de donnee")
.Unprotect
.Rows.Hidden = 0
End With
End If
Application.ScreenUpdating = 1