Un Probleme avec FinDates

[BERRACHED said]

Bonjour le forum
voila avec votre aide j'ai pu corriger le code qui cherche entre deux dates et ca marcher bien mais seulement quand ma base de donnes c a dire sheets("BD") a commencer a prendre de l'ampleur en cumulant les enregistrements le code a encore une fois foiré je ne sais pas si c'est du a la taille ou autre chose voila le bout de code :
Private Sub CommandButton1_Click()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range
On Error GoTo message
If StartDate = "" Then MsgBox "Veuillez entrer Une Date Svp"
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then MsgBox "une date de fin Svp"
StopDate = Format(StopDate, "dd/mm/yyyy")
If sheets("BD").Range("a2").Value >= DlgFind.StartDate.Value Or sheets("BD").Range("a2").Value <= DlgFind.StopDate.Value Then

Set d1 = sheets("BD").Range("A:A").Find(CDate(DlgFind.StartDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d1 Is Nothing Then startRow = d1.row
Set d2 = sheets("BD").Range("A:A").Find(CDate(DlgFind.StopDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d2 Is Nothing Then stopRow = d2.row
sheets("BD").Select
sheets("BD").Range(Cells(startRow, 1), Cells(stopRow, 8)).Copy _
Destination:=sheets("CONSULT").Range("A15")
sheets("CONSULT").Select
Unload DlgFind
UserForm3.Show
End
message:
MsgBox "Date non valide verifier les dates de votre saisie svp", vbInformation, ("Attention")
End If
End Sub
Merci de votre aide

 

[Bebere]

Re : Un Probleme avec FinDates

bonjour Said
une solution,mais si tu veux toutes les dates de stopdate avec il faut faire autrement
Private Sub CommandButton1_Click()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range
Dim firstAddress As String
On Error GoTo message

If Not IsDate(StartDate) Then
MsgBox "Veuillez entrer Une Date Svp"
StartDate.SetFocus
Exit Sub
End If

If Not IsDate(StopDate) Then
MsgBox "une date de fin Svp"
StopDate.SetFocus
Exit Sub
End If

On Error Resume Next
Set d1 = Sheets("BD").Cells.Find(What:=CDate(StartDate), After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not d1 Is Nothing Then startRow = d1.Row

On Error Resume Next
Set d2 = Sheets("BD").Cells.Find(What:=CDate(StopDate), After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
On Error GoTo 0

If Not d2 Is Nothing Then stopRow = d2.Row

Sheets("BD").Select
Sheets("BD").Range(Cells(startRow, 1), Cells(stopRow, 8)).Copy _
Destination:=Sheets("CONSULT").Range("A15")
'Sheets("CONSULT").Select
''Unload DlgFind
'UserForm3.Show
'End
'message:
'MsgBox "Date non valide verifier les dates de votre saisie svp", vbInformation, ("Attention")
'End If
End Sub
à bientôt

 

[BERRACHED said]

Re : Un Probleme avec FinDates

Salut bebere
merci beaucoup pour ton code mais ça n'a rien donner c'est toujours la mémé chose aussi je ne sais pas pourquoi tu déclarer "firstAddress " mais elle n'est pas utiliser dans le code
j'attends impatiemment une solution a ce probleme
merci les amis je peut compter sur vous

 

[Bebere]

Re : Un Probleme avec FinDates

Said
version avec 2 combobox et résultat dans consult
tu peux choisir 2 dates les mêmes
supprimer feuil1 pour alléger le fichier
à bientôt

 

[Cousinhub]

Re : Un Probleme avec FinDates

Bonsoir said, bebere

une autre alternative, avec le filtre élaboré

 

[BERRACHED said]

Re : Un Probleme avec FinDates

salut bebere salut bhbh
j'ai trouver vos réponses extraordinaire il va falloir que j'opte pour l'une deux et pouvoir aussi changer la structure de l'application sous excel que je suis entrain concevoir j'aurais aussi besoin de votre aide
merci merci beaucoup