Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Find pour trouver une date

S

Sylvainf

Guest
Bonjour le forum.
Je n'arrive pas à paramétrer la commande Find dans VBA pour trouver une date précise écrite dans n'importe quel format.

DateChercher = 14-sept-2003 par exemple et si sur la feuille excel la date est sous le format 14/09/03 ça ne marche pas.

With Range(ActiveCell, ActiveCell.End(xlDown))
Set LeJourTrouvé = .Find(DateChercher, LookIn:=xlValues)
If Not LeJourTrouvé Is Nothing Then
firstAddress = LeJourTrouvé.Address
Do
etc....
 
D

Delors

Guest
essaie ceci:


With Range(ActiveCell, ActiveCell.End(xlDown))
Set LeJourTrouvé = .Find(CDate(DateChercher))
If Not LeJourTrouvé Is Nothing Then
.....

ca devrait à priori marcher, indépendamment du format de la date.

Delors
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…