VBA Excel - Find sur des dates

Résolu/Fermé
antic - 28 janv. 2008 à 15:48
 antic - 28 janv. 2008 à 17:15
Bonjour,


J'aimerais faire une recherche d'une date -encodée dans une ComboBox- dans une colonne contenant des dates.
J'ai essayé avec :

With ActiveSheet.Range(col & "2:" & col & LastRow)
Set champ = .Find(BoxMotRecherche.Value, LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)
...

Comme ça ne fonctionne pas, j'ai pensé qu'il valait mieux changer le format de la zone d'entrée, et j'ai fait ceci :
BoxMotRecherche.Value = CDate(BoxMotRecherche.Value)

Comme ça ne marche toujours pas, j'ai même essayé en hardcodant la date ! ! ! :
Set champ = .Find("21/12/2007", LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)
Même ça, ça ne marche pas !
Je dois vraiment passer à côté de qquechose car une recherche de ce type en XLS, enregistrement macro, ça fonctionne ...

Qqn pourrait-il m'aider ?

Merci !

1 réponse

J'ai trouvé une solution !

C tout bête : à mon avis une ComboBox est "formatée" en caractère, on ne peut donc pas y mettre du format date
Ce qui posait problème était ceci :
BoxMotRecherche.Value = CDate(BoxMotRecherche.Value)

Ai changé comme ceci :

Truc = CDate(BoxMotRecherche.Value)

With ActiveSheet.Range(col & "2:" & col & LastRow)
Set champ = .Find(Truc, LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)
...

Et maintenant ça fonctionne.

Merci tout de même pour ceux qui se sont lancé dans les recherches
@NTIC
0