Recherche ListBox avec critère Date

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 !

Provence Vintage

XLDnaute Occasionnel
Bonjour le Forum,

J'ai dans un usf qui reste ouvert un textbox pour saisir date,

Puis, avec un commandButton, j'ouvre un autre USF, et l'objectif est d'utiliser la valeur saisie dans le textbox pour alimenter une listbox sous condition, mais les résultats ne sont pas cohérents...

Voici mon code:

#With Sheets("bdd acheteurs") 'prend en compte l'onglet "bdd acheteur"
For Each cel In .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne G
On Error GoTo suite 'gestion des erreurs (si la cellule n'est pas convertible en date, passe à la cellule suivante via l'étiquette "suite")

If CDate(cel.Value) >= Date - SaisirDate.TextBox2.Value Then 'condition : si la date de la cellule est inférieure à la date du jour - 7 jours
Me.ListBox1.AddItem cel.Offset(0, 2).Value 'ajoute à la ListBox2 la donnée en colonne B (colonne 0 de la listbox)
Me.ListBox1.Column(1, ListBox1.ListCount - 1) = cel.Offset(0, 5).Value 'ajoute à la ListBox2 la donnée de la colonne D (colonne 1 de la listBox)
Me.ListBox1.Column(2, ListBox1.ListCount - 1) = cel.Offset(0, 6).Value 'ajoute à la ListBox2 la donnée de la colonne F (colonne 2 de la listBox)
Me.ListBox1.Column(3, ListBox1.ListCount - 1) = cel.Row 'Ajoute à la ListBox2 le numéro de ligne de la donnée (Colonne 3 (masquée) de la listbox)
End If 'fin de la condition
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs

Next cel 'prochaine cellule de la boucle
End With #


j'ai éssayé avec Dim mavar; mavar = SaisirDate.TextBox2.Value, et ensuite
If CDate(cel.Value) >= Date - mavar Then

Mais.....

Si quelqu'un à une idée,
Merci
 
- 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
10
Affichages
282
Réponses
4
Affichages
506
Réponses
3
Affichages
666
Réponses
17
Affichages
2 K
Retour