BERRACHED said
XLDnaute Accro
salut mes amis
avec votre aide j'ai pu obtenir le code qui fait l'extraction entre deux dates mais seulement quand il est seul dans un classeur il s'excute a merveille mais quand je le met dans mon application nommée "solution" pour pouvoir consulter les enregistrements de la Feuilles "BD" il marchera pas je ne sais pas pourquois ! j'ai tout essayer
aidez moi je sais que je peut compter sur vous
merci
Private Sub CommandButton1_Click()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range
On Error GoTo message
If StartDate = "" Then End
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then End
StopDate = Format(StopDate, "dd/mm/yyyy")
If Range("a2").Value >= Me.StartDate.Value Or Range("a2").Value <= Me.StopDate.Value Then
Set d1 = Sheets("BD").Range("A:A").Find(CDate(Me.StartDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d1 Is Nothing Then startRow = d1.Row
Set d2 = Sheets("BD").Range("A:A").Find(CDate(Me.StopDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d2 Is Nothing Then stopRow = d2.Row
Sheets("BD").Range(Cells(startRow, 1), Cells(stopRow, 5)).Copy _
Destination:=Sheets("CONSULT").Range("A15")
End
message:
MsgBox "Date non valide verifier votre saisie svp"
End If
End Sub
le message d'erreur "Objet variable ou variable objet de bloc with non definie"
au niveau de " d1.row et d2.row"
avec votre aide j'ai pu obtenir le code qui fait l'extraction entre deux dates mais seulement quand il est seul dans un classeur il s'excute a merveille mais quand je le met dans mon application nommée "solution" pour pouvoir consulter les enregistrements de la Feuilles "BD" il marchera pas je ne sais pas pourquois ! j'ai tout essayer
aidez moi je sais que je peut compter sur vous
merci
Private Sub CommandButton1_Click()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range
On Error GoTo message
If StartDate = "" Then End
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then End
StopDate = Format(StopDate, "dd/mm/yyyy")
If Range("a2").Value >= Me.StartDate.Value Or Range("a2").Value <= Me.StopDate.Value Then
Set d1 = Sheets("BD").Range("A:A").Find(CDate(Me.StartDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d1 Is Nothing Then startRow = d1.Row
Set d2 = Sheets("BD").Range("A:A").Find(CDate(Me.StopDate.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not d2 Is Nothing Then stopRow = d2.Row
Sheets("BD").Range(Cells(startRow, 1), Cells(stopRow, 5)).Copy _
Destination:=Sheets("CONSULT").Range("A15")
End
message:
MsgBox "Date non valide verifier votre saisie svp"
End If
End Sub
le message d'erreur "Objet variable ou variable objet de bloc with non definie"
au niveau de " d1.row et d2.row"
Dernière édition: