Rechercher une date précise dans Excel
Roblim
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 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
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
1 réponse
-
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
