DTP Picker

Boujour

Je souhaite faire une recherche sur le dtp picker or
quand je lance ma macro erreur 6 ben oui memoire depassée

quel et le type car date niet !!

help help

j'ai besoin de la date et l'heure car recherche fine comme cela voici le code

Private Sub CommandButton9_Click()

' RECHERCHE DU N° DE LIGNE CORRESPONDANT A la date et l'heure



Dim D As Date

Dim L As Integer
Dim i As Integer
If DTPicker1 = "" Then Exit Sub

D = DTPicker1.Value

For i = 2 To Range("B65536").End(xlUp).Row
If Sheets("Boucle").Cells(i, 2).Value = D Then
L = i
MsgBox "ligne=" & i
Else
MsgBox "pas de saisie trouvé faire une nouvelle recherche"

End If

Next i
End Sub