méthode find avec une date

[jean-ed]

Bonjour à tous!
Je suis actuellement sur un autre sujet mais il commence à s'écarter du titre donc j'en ouvre un autre :
https://www.excel-downloads.com/thr...nnees-cellule-a-partir-de-son-contenu.117486/
Je veux rechercher une date (dd/mm/yyyy hh:mm:ss) dans un classeur avec la méthode find. Le problème est que ce format pose problème. En effet, avec le code que j'ai, si je cherche un nombre quelconque, il le trouve. Mais si je lui demande une date, il ne la trouve pas.
Sauriez-vous d'où vient le problème?
Merci


Private Sub CommandButton1_Click()
Dim chaine1 As String
Dim laDate As Date

Dim laCell As Range

chaine1 = TextBox1.Value + "/" + TextBox2.Value + "/" + TextBox3.Value + " " + TextBox4.Value + ":" + TextBox5.Value + ":" + TextBox6.Value
laDate = Format(chaine1, "dd/mm/yyyy hh:mm:ss")

Set laCell = Feuil2.Cells.Find(what:=laDate, Lookat:=xlWhole)

If Not laCell Is Nothing Then
MsgBox laCell.Address
Else
MsgBox "La valeur rentrée n'existe pas"
End If
End Sub

 

[BOISGONTIER]

Re : méthode find avec une date

Bojour,

Gestion des cellules
http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB

 

[jean-ed]

Re : méthode find avec une date

Bonjour JB!
Merci de ta réponse rapide mais je suis débutant en vba et je n'arrive pas à tout saisir. Pourrais-tu m'aiguiller sur la marche à suivre afin d'adapter tes codes à ce que j'ai déjà sachant que je n'ai pas des inputbox mais des textbox dans un userform?
Merci