Microsoft 365 Listview, recheche entre deux dates

[Gilles Cyr]

Bonjour le forum,

Le fichier est maintenant débloquer, mon erreur.
Je suis bloquer sur ce problème,
- procédant a une recherche par listview en colonne 1(date soumise) j'aimerais faire une
recherche entre deux date et ensuite copier le résultat dans une feuille et imprimer.
Ou serait 'il plus simple et ne pas utiliser listview et et travailler en mode tableau, rechercher dans le tableau principale
et faire la recherche et transposer le résultat directement dans un autre tableau et imprimer.
voir mon fichier débloquer.
un coup de pouce s.v.p. merci.

 

[Lolote83]

Salut Gilles,
Voici ton fichier en retour.
J'ai fait un filtre élaboré en feuille1 (macro)
Saisir en B6, la date de début, en C6, la date de fin et clic sur le bouton AFFICHER
Tu peux ensuite imprimer cet onglet
En espérant avoir bien compris la consigne.
@+ Lolote83

 

[Gilles Cyr]

Bonjour Lolote83 et forum,

Merci de porté une attention a mon fichier,
j'aime bien l'idée mais je suis pas trop a l'aise avec les filtres..
C'est possible de faire avec les autres boite de recherche pour (bon de travail)
(no de facture) et (Machine no série), avec un peu d'explication s.v.p..
j'ai remis le fichier en attachement
bonne journée
A+

 

[Lolote83]

Salut Gilles,
Excuse moi pour le retard mais j'en ai "bavé" car depuis ce matin, je m'évertue à mettre en place un filtre élaboré avec "contient" sur une valeur numérique et cela ne marche pas sur excel.
Donc voici le fichier en retour en espérant que cela convienne.
Cordialement
@+ Lolote83

 

[Gilles Cyr]

Bonjour Lolote83 er forum,

Merci, j'aime bien, c'est simple et fonctionnel.
il y a juste une petite chose, si je rajoute dans ma feuille Claims une ligne par mon userform et que dans ma recherche disons par date, la ligne ne se rajoute pas dans ma feuille1.
une solution pour cela s.v.p.

A+Gilles

 

[Lolote83]

Salut,
Normalement, toutes lignes rajoutées doivent être prises en compte.
Tiens moi au courant
@+ Lolote83

 

[Gilles Cyr]

Salut,
J'ai revérifier mais malheureusement cela ne fonctionne pas.
j'ai remis le fichier pour vérification.
A+ Gilles

 

[Lolote83]

Re salut Gilles,
Dans ton code du formulaire, il faut inscrire les dates Date soumise et Date paiement au format date.
Quand tu utilises un Textbox, le resultat est un "string" soit chaine de caractères.
Donc modifie ton code de la sorte

.....
With Worksheets("claims")
        ActiveSheet.Unprotect ("0")
        derlig = .Range("B5000").End(xlUp).Row + 1
        xdate = CDate(TextBox1.Value)
        .Cells(derlig, 2).Value = CDate(TextBox1.Value)
        .Cells(derlig, 3).Value = TextBox2.Value
        .Cells(derlig, 4).Value = TextBox3.Value
        .Cells(derlig, 5).Value = TextBox4.Value
        .Cells(derlig, 6).Value = TextBox5.Value
        .Cells(derlig, 7).Value = CDate(TextBox6.Value)
        .Cells(derlig, 8).Value = TextBox7.Value
        .Cells(derlig, 9).Value = TextBox8.Value
        .Cells(derlig, 12).Value = TextBox9.Value
        .Cells(derlig, 13).Value = TextBox10.Value
        .Cells(derlig, 14).Value = TextBox11.Value
        .Cells(derlig, 15).Value = TextBox12.Value
        ActiveSheet.Protect ("0")
    Exit Sub
.....

Voir ligne
.Cells(derlig, 2).Value = CDate(TextBox1.Value)
et
.Cells(derlig, 2).Value = CDate(TextBox1.Value)

@+ Lolote83

 

[Gilles Cyr]

Bonjour, Lolote83

J'ai apporter les modifications et cela fonctionnent très bien.
Je tiens a te remercier de ton aide et de ta patience.
cela est très apprécier.
Bonne journée.
A+ Gilles