Find avec Date

Bonjour,

J'ai vu plusieurs sujet sur le thème mais je n'arrive pas à trouver de solution...

J'ai une feuille excel où j'ai créé un planning la date apparaît dans les cases sous la forme "dd"

J'ai un Userform "DateCongés" avec un Textbox nommé "DateDébut"

sous VBA si je tappe

If CDate(DateCongés.DateDébut) = ActiveSheet.Range("B15") Then test = "OK"

Test est bien égal à "OK"

mais si je lance

Set TrouveDate = ActiveSheet.Range("B6:AK36").Find(CDate(DateCongés.DateDébut), LookAt:=xlWhole)
If Not TrouveDate Is Nothing Then
        ActiveSheet.Range(TrouveDate.Address).Offset(0, 1).Select
End if

Il ne trouve rien

Quelqu'un pourrait-il m'aider ?

bonsoir,

[...] et bien que se passe t il ?

un fichier peut-être ?

@ bientôt

LouReeD

Merci LouReeD de t'occuper de mon souci

Voici le fichier simplifié

Bonjour,

ci-dessous code avec la seule recherche Find possible au vu du format de ta date :

    ZI = CDate(DateCongés.DateDébut)
    Application.FindFormat.Clear
    Application.FindFormat.NumberFormat = "dd"
    With ActiveSheet
        Set trouvedate = .Range("B6:AK36").Find(Format(ZI, "dd"), LookIn:=xlValues, Lookat:=xlWhole, SearchFormat:=True)
        If Not trouvedate Is Nothing Then
            Set trouvedate1 = trouvedate
            Do
                If trouvedate = ZI Then
                    trouvedate.Offset(0, 1).Select
                    trouvedate.Offset(0, 1).Borders.LineStyle = xlEdgeLeft
                    Exit Do
                End If
                Set trouvedate = .Range("B6:AK36").FindNext(trouvedate)
            Loop Until trouvedate.Address = trouvedate1.Address
        End If
    End With

Merci, je teste tout cela ce soir

Merci beaucoup !