Sélectionner une ligne en fonction d'une date

Bonsoir

Code ci-dessous a tester

Sub FiltreDate()

    Sheets("Suivi journalier").Select
    Range("A4:A800").Select    Selection.AutoFilter
nomPdt = InputBox("Daterecherchés ?")
Selection.AutoFilter Field:=1, Criteria1:="=" & nomPdt & "", Operator:=xlAnd
End Sub

Crdlt

merci pour ta réponse. J'ai essayé la macro

mais j'ai une erreur de compilation avec nombre d'argument incorrect ou affectation de propriété incorrecte.

erreur semble venir de .select mis en surbrillance

Désolé et encore merci.

A te lire à nouveau

cdlt

J'ai fait un essai sur un fichier test cela fonctionne

Il faudrait voir ton fichier anonymiser pour voir ou cela coince

Voici une petit extrait de mon fichier qui comporte de très nombreuses feuilles.

https://www.cjoint.com/c/MKbrAFAWyJB

Bonne réceeption

Cela fonctionne regarde le fichier

https://www.cjoint.com/c/MKbrNuejDGd

Sub RechercheDate()

    Sheets("Suivi journalier").Select
    Range("A4:A800").Select
    Selection.AutoFilter
  ' Range("A1").Select '
nomPdt = InputBox("Daterecherchés ?")
'Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=" & nomPdt & "", Operator:=xlAnd
End Sub

J'ai toujours la même erreur à savoir "sélection AutoFilter" mis en en jaune.

Pas grave je vais me passé de cette macro pour le moment. 

Merci pour le temps passé.

Bonne soirée, ici on attend la tempête Ciaran avec stress.

Cdlt

Bonjour

Une solution sans filtre

https://www.cjoint.com/c/MKciTGjzIzB

Cdlmnt

Bonjour et merci pour ta persévérance 

J'ai bien lu ton dernier mien, mais je n'arrive à rie car je ne sais pas ou aller indiquer la date que je recherche.

Je te joins mon fichier un peu plus complet

https://www.cjoint.com/c/MKcjBDVrzjB

Ce que le souhaiterai c'est qu'en cliquant sur la forme intitulé "date recherchée", un fenêtre arrive pour y inscrire la date que je recherche et qu'en conséquence, il l'affiche.

Merci si tu peux m'aider

Bonne journée

Cdlt

erreur la forme en vert n'est pas date recherchée, mais autre date

J'ai bien lu ton dernier mien, mais je n'arrive à rie car je ne sais pas ou aller indiquer la date que je recherche.

Avec mon fichier ? Si oui, as tu fait un double clic en colonne A sur une date ?

Cdlmnt

En cliquant sur la forme en vert marque "autre date" sous les colonnes I et J cela devrait ouvrir une macro qui fera apparaître une boite pour entrer la date souhaitée.

Merci

tu ne réponds pas à ma question (voir fichier du post 8)

Cdlmnt

Je suis perdu. J'ai repris le fichier du post 8, mais quand je fais double clic sur la cellule a4, et que je rentre une date rien ne se passe.

Mais dans le dernier fichier plus complet que je t'ai adressé, pourquoi j'ai débogage quand je clic sur la forme en vert. c'est sans doute ma macro qui n'est pas bonne. Pourrais tu y jeter un œil STP

Cdlmnt

nompdt = InputBox("Date recherchée ?")
nompdt = Format(CDate(nompdt), "[$-F800]dddd dd mmmm yyyy")

comme ça, chez moi (excel 23003) ça fonctionne

https://www.cjoint.com/c/MKctA6VBpQB

mais quand je fais double clic sur la cellule a4, et que je rentre une date rien ne se passe.

Bizarre, chez mois ça fonctionne : passes en exécution pas à pas : dans le code de la macro, mets un point d'arrêt (clic dans la marge sur la première ligne de code) et fais une exécution pui F8 pour passer à l'instruction suivante et passes le curseur sur les variables pour voir leur valeur.

Cdlmnt

Z. Lien modifié à 20h27

Bonjour

Comme la macro marchait bien chez toi et pas chez moi, j'en ai conclu que c'était un problème de microsoft. Je les ai contacté. Ils ont procéder à quelques réparations mais sans succès. Ils doivent poursuivre leurs recherches.

 ce fait, je mets fin à notre conversation et je te remercie pour tout les temps passé à essayer de résoudre mon problème.

Très cordialement