Rechercher une date précise dans Excel

Roblim -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je voudrais faire une recherche sur une date précise d'une colonne d'un tableau excel(2003).
Dans cette colonne j'ai utilisé le format jj/mm/aaaa.
J'ai fait une macro, trés simple, car je ne sais pas faire plus, avec l'assistant :
Range ("M13").Select
Sheets("données").Select
Selection.Autofilter Fiel:=12, Criterial:="14/12/2013"
Lorsque je la lance je n'ai pas de résultat, alors que j'ai bien des dates qui correspondent.
Est-ce que vous pourriez me dire comment faire pour résoudre ce problème d'une part.

D'autre part, avec cette méthode que j'utilise par ailleurs pour rechercher une chaine de caractère, et qui fonctionne bien, comment faire pour éviter d'aller chaque fois dans VBA pour mettre la nouvelle chaine.

D'avance, je vous remercie
Trés cordialement
Robert de Limoges

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

tes dates doivent saisies au format date (sans guillemets aautour) 

Option Explicit

Sub chercher_date()
Dim Jour As Date, Cellule As Range, Rep As Byte

On Error GoTo erreur
1   Jour = InputBox("entrer la date au format jj/mmmm/aaaa)")
    Set Cellule = Columns("M").Find(Jour, Range("M13"))
    Cellule.Select
Exit Sub

erreur:
    Rep = MsgBox("erreur de saisie", vbRetryCancel + vbExclamation)
    If Rep = vbRetry Then Resume 1

End Sub

0