VBA Excel - Find sur des dates Résolu/Fermé

Question

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 !

antic · Answer

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

VBA Excel - Find sur des dates

1 réponse

Discussions similaires