VBA Excel - Find sur des dates
Résolu
antic
-
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 !
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:
- Find date vba
- Find and mount - Télécharger - Récupération de données
- Find grep ✓ - Forum Linux / Unix
- Jm date avis - Forum Consommation & Internet
- Airpods 3 date de sortie - Guide
- Ava find - Télécharger - Divers Utilitaires
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
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
