date dans textbox

[fabsussak]

salut les amis,

J ai un petit souci
J ai créé une textbox dans un user forme et un code permettant de rechercher la date que j aurais rentrer dans ma textbox
seul problème la macro associé à mon bouton validé ne reconnait jamais la date descend indéfiniment et fait buger excel
Je vous met mon code si vosu pouvez m'aider

en vous remerciant par avance de vos réponses

Private Sub TextBox1_Change()

Selection.NumberFormat = "dd/mm/yyyy"

End Sub

Private Sub valider_Click()

Sheets("donnees").Select
Range("B2").Select

Do
If ActiveCell.Value = selectionjour!TextBox1 Then
GoTo Copier
End If

If ActiveCell.Value <> selectionjour!TextBox1 Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until ActiveCell.Value = selectionjour!TextBox1

Copier:
Range("ActiveCell:ActiveCell.Offset(3, 5)").Select

Selection.Copy
Sheets("jour").Select
Range("D2").Select
ActiveSheet.Paste



End Sub

 

[Robert]

Re : date dans textbox

Bonsoir Fabsussak, bonsoir le forum,

Peut-être comme ça :

Private Sub valider_Click()
Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)

With Sheets("donnees") 'prend en compte l'onglet "donnees"
    Set pl = .Range("B2:B" & .Range("B65536").End(xlUp).Row) 'définit la variable pl
    Set r = pl.Find(CDate(TextBox1.Value), , xlValues, xlWhole) 'définit la variable r
    'si il existe au moins une occurrence de r dans la plage pl'copie et colle
    If Not r Is Nothing Then Range(r, r.Offset(3, 5)).Copy Sheets("jour").Range("D2")
End With 'fin de la prise en compte de l'onglet "donnees"
End Sub