Recherche date pour filtrer

Bonjour tout le monde,

je sèche sur un code me permettant de retrouver une date pour mon filtrage.

Dans le fichier ci-joint, on peut appeler un USF( FILTRAGE) pour faire ce filtrage sur une période choisie, via les textbox 10 et 20, cela a l’air de bien fonctionner. Le résultat est transféré vers l’onglet « RESULTATS A ».

Par contre, si je saisie une date dans le textbox1 via le calendrier et que je procède au lancement du code pour ce filtrage avec le commandbutton8, rien se passe ! Aucun transfert vers l’onglet « RESULTATS A ».

Pourriez vous s’il vous plaît m’aider sur ce problème.

Je vous remercie d’avance.

Rubis
Rubis-Filtrer.xlsm (71,1 Ko)

1 « J'aime »

Bonjour,
Le format de ton fichier n’est pas correcte.

Bonjour,

je ne comprends pas bien ! Moi je suis sous 2016. Avant j’étais en 365.

On n’arrive pas ouvrir le fichier, Erreur de Format, essayez de l’uploader encore une fois.

Rubis-Filtrer.xlsm (71,1 Ko)

pareil :

chez moi il fonctionne très bien !

je viens de le télécharger le fichier du forum, je débloque la sécurité dans les propriétés et cela fonctionne.

1 « J'aime »

Il s’ouvre chez moi aussi
que ce soit le premier ou deuxième fichier

Bonjour taz,

cela me rassure, Merci.

ah, je vais revoir si ca a changer

j’ai toujours les mêmes problèmes

C’est peut-être chez vous !

la seule chose est l’alerte de mise a jour des liens

je viens de rompre les liaisons.
Rubis-Filtrer.xlsm (68,9 Ko)

Bonjour Rubis57
Heureux de te retrouver
J’ai remplacé ton traitement qui à mon sens peut difficilement fonctionner dans son approche car utilisant une donnée texte(celle du Texbox1) pour réaliser un filtre sur une colonne de date (colonne « E » onglet « CHIFFRES A »)
Date et donnée texte ne font pas bon ménage ensemble même en essayant par l’instruction « Cdate » de corriger le format de celle du Textbox1
Donc j’ai utilisé une boucle et non un filtre pour obtenir le résultat attendu
Cela semble fonctionner
A toi de me dire

Rubis-Filtrer.xlsm (75,4 Ko)

Bonjour FFO,
Ravi de te retrouver également.

Merci pour ton travail. Or, je viens d’essayer et j’ai remarqué qu’il me place les données hors du tableau sur l’onglet RESULTATS A.
Tu voudrai bien revoir cela s’il te plaît.

Merci à toi. A+

Re,

j’ai essayé en enlevant le +1 a la fin de cette ligne du code

lignerecopie = Sheets("RESULTATS A").Range("E" & Rows.Count).End(xlUp).Row

et il me place bien dans le tableau. Par contre il me copie également la mise en forme des couleurs ! Je me rappelle plus comment gérer cela, donc si tu veux bien. Merci

Private Sub CommandButton8_Click()
Dim Lo    As ListObject
     Set Lo = Sheets("RESULTATS A").ListObjects(1)
     If Not Lo.DataBodyRange Is Nothing Then Lo.DataBodyRange.Delete xlUp     'RAZ
     If Not IsDate(TextBox1) Then Exit Sub
     sp = Split(TextBox1, "-")
     If UBound(sp) <> 2 Then Exit Sub
     With [Tableau1].ListObject.Range
     .AutoFilter
     .AutoFilter 1, ">=" & sp(1) & "/" & sp(0) & "/" & sp(2)
              .SpecialCells(xlCellTypeVisible).Copy Lo.Range(1)
          .AutoFilter 1                      'ôte le filtre
     End With
     Application.GoTo Lo.Range(1)            'facultatif
     Unload Me
     Application.Visible = True
     Sheets("RESULTATS A").Activate


End Sub

Je n’ai pas le même constat que toi

onglet « RESULTATS A »

Avant exécution j’ai ceci :

Aprés exécution j’ai ceci :

Pour moi le résultat au niveau de l’emplacement de sa restitution est correct et de plus sans aucune mise en forme juste les données

Je ne vois pas ce qui ne te convient pas

Merci de m’en dire plus sur ce résultat obtenu

Re FFO,

Voici donc ce que cela donne avec ton code
rubis57image

mais comme tu vois l’inscription se fait une ligne en dessous du tableau. Et il me donne aussi la couleur jaune de la mfc, ce qui ne devrait pas être.