Microsoft 365 Listview, recheche entre deux dates

  • Initiateur de la discussion Initiateur de la discussion Gilles Cyr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gilles Cyr

XLDnaute Nouveau
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.
 

Pièces jointes

Solution
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
VB:
.....
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 =...
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
 

Pièces jointes

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+
 

Pièces jointes

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
 

Pièces jointes

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
 
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
VB:
.....
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
35
Affichages
1 K
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
170
Réponses
1
Affichages
288
Retour