VBA Excel - Find sur des dates

Résolu
antic -  
 antic -
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 !
A voir également:

1 réponse

Réponse 1 / 1
antic
 
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

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses