Recherche de date dans un tableau

Bonjour,

J'ai un problème avec la méthode Find.

Lorsque je l'utilise pour rechercher une chaîne de caractères ou une valeur dans un tableau situé dans une feuille excel et de m'afficher les resultats dans une listbox , elle fonctionne très bien.

Toutefois, il semble qu'elle beug desque j'entre une date de cet format dd/mm/ yy (15/07/2016)

Dim c As Range
Dim tablo() As String
Dim Text As String
Dim S As Byte
Dim Firstaddress As String
Dim i As Integer, x As Integer, L As Integer

Text = Me.TextBox8
If Text = "" Then Exit Sub

Sheets("sheet1").Activate

        With Sheets("sheet1").UsedRange
        Set c = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)

        If Not c Is Nothing Then
        Firstaddress = c.Address
        Do
        ReDim Preserve tablo(13, i)
                    For x = 1 To 13
                        tablo(x - 1, i) = c.Offset(0, x - c.Column).Text
                    Next x
            i = i + 1

        Set c = .FindNext(c)

        Loop While Not c Is Nothing And c.Address <> Firstaddress

        End If
        End With

MsgBox "Nombre des condidats trouvés " & i, vbInformation

If i = 0 Then
MsgBox "Le Texte " & Text & " n'a pas été trouvé" & vbCrLf & ", vbCritical, Sign
Exit Sub
End If
Me.ListBox1.Column() = tablo()

Bonsoir,

j'essaierai ceci :

    Text = Me.TextBox8
    If IsDate(Me.TextBox8) Then Text = CDate(Me.TextBox8)
    If Text = "" Then Exit Sub

Bonjour Thev ,

je viens de l'essayer , il n'as reconnu la date entrée pensez -vous y'a t il un rapport avec le format ?

vous trouveriez en pièce jointe une capture d' écran de mes résultats

Apparemment votre date est bien reconnue en tant que telle puisque cadrée à droite.

Le message d'erreur affiché n'a pas l'air de correspondre à votre code car je ne vois pas d'où vient le texte "Faites un autre essai SVP".

pour le message d'erreur , c'est moi qui l'a défini en cas où le texte recherché est introuvable mais le probléme que ça fonctionne pour tous sauf pour les dates :/

@Thev

J'ai modifié cette ligne et ça bien marchait .

Calendar_SLE.TextBox5 = Format(Calendar1.Value , "mm/dd/yyyy")
End Sub

Calendar_SLE.TextBox5 = Format(Calendar1.Value ) 
End Sub

Merci beaucoup pour ton essai