Bouton Commande recherche

Bonjour à tous

Je cherche désespérément comment faire un bouton de recherche pour pouvoir afficher les lignes qui contient la date saisie dans la recherche

Dans l'onglet Base Planning J'aimerai pouvoir rechercher à l'aide d'un bouton de commande une date : exemple rechercher tout les transports pour le 10/09/19 et qu'excel ne m'affiche que les lignes ou les transports ont pour date le 10/09/19

j'ai créer un userform avec des bouton de commande : Valider ; Annuler et une listebox pour la saisie de la date

et je n'arrive pas à faire plus.

Pourriez m'aidez?

Merci par avance

Bonjour et bienvenue,

Vu la complexité du contenu du fichier, je vais juste te donner un exemple ... que tu pourras adapter ?

Merci Steelson

Je regarde ca et je te dis si j'ai réussi à me servir de ton exemple

En tt cas merci pour ta rapidité et ta disponibilité

Laetitia

Alors j'ai essayer de reproduire ce que tu as fais mais cela me marque quand je lance le filtre date "impossible d'ouvrir le dossier spécifié. "

Ou ai-je merder lol ?

Merci pour ton aide

Laetitia

Il faut que tes données soient structurées en tableau excel.

Or quand j'essaye de le faire, il le refuse car les filtres automatiques créés doivent être supprimés.

Comme tu as des macros et des noms tous azimuts, je préfère ne pas tripatouiller ton fichier.

Je suis désolé mais cela ne marche toujours , j'ai fais ce que tu m'as dis.

Apres c'est une copie de mon fichier que j'ai vidé tu peux si tu as besoin faire des modif , j'ai aussi supprimer des onglets c'est pour ça qu'il y a beaucoup de Noms définie et de macro.

tu peux si tu peux aller voir se que j'ai fais, la macro est dans le module 1

Merci vraiment pour ton aide

Laetitia

J'ai changé mon fusil d’épaule, je te propose une toute autre version :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
If Range("H1") = "" Then
    On Error Resume Next
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
Else
    ladate = Format(Range("H1"), "mm/dd/yyyy")
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, ladate)
End If
End Sub

à mettre directement dans la feuille concernée

Il n'y a pas de bouton, la macro se déclenche à chaque changement de date dans H1. Et en cas d'effacement le filtre est alors désactivé.

up...