Problème avec une recherche de date

[blord]

Bonjour à tous,

J'essaie d'utiliser le code suivant pour trouver une date dans une feuille :

Dim Var As String
Dim MotTrouvé
On Error Resume Next
Var = TextBoxDate.Value
Set MotTrouvé = Sheets("data").Range("A:A").Find(What:=Var)MotTrouvé.Select

Mais le code ne fonctionne pas, il ne trouve pas la date ??

Auriez-vous une suggestion ?

Merci pour votre aide
Blord

 

[PascalXLD]

Re : Problème avec une recherche de date

Bonjour

essaies en remplaçant

Var = TextBoxDate.Value

par

Var = CDate(TextBoxDate.Value)

 

[blord]

Re : Problème avec une recherche de date

Bonjour Pascal,

Merci pour l'information mais juste avec CDate ça ne fonctionne pas...

Au lieu de déclarer :
Dim Var As String

Je déclare :
Dim Var As Date

Ave ton CDate et le changement de déclaration, le tout fonctionne parfaitement !

Merci...

 

[PascalXLD]

Re : Problème avec une recherche de date

Re

Oui oups excuse j'avais pas vu ta déclaration de variable