XL 2010 filtre date between

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #2

Bonjour Nabilexcel,
Pourquoi votre image montre ListBox2.Clear alors que votre fichier fait état de ListBox1.Clear ?

Essayez de remplacer ListBox2.Clear par ListBox2.RowSource = ""

VBA - Clear ListBox PB

Bonsoir, je viens encore solliciter votre aide. je suis en train de coder mon fichier pour pouvoir faire des Filtres d'un ListBox selon le choix d'un ComboBox. dans le code il faut que j'efface l'ancien ListBox que j'ai appelé LISTE mais me met un message d'erreur, pourtant j'ai j'écrit...

www.excel-downloads.com

 

Dernière édition: 10 Octobre 2020

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 10 Octobre 2020

• #3

bonsoir
j'ai rectifier la listebox mais le probleme reste tjrs

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #4

Bonsoir,
En faisant la modif :

VB:

    ListBox2.RowSource = ""
    ListBox2.ColumnCount = 9
    ListBox2.ColumnWidths = "30;70;140;30;80;65;80;65;60"

Au moins ça ne plante pas. Reste à savoir si c'est ce que vous attendez.🙂

 

Pièces jointes

• populate_textboxes_basedon_listboxitem_ (3).xlsm

  64.1 KB · Affichages: 3

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 10 Octobre 2020

• #5

ça ne marche pasle filtre ne se fait pas et la listbox n'affiche pas le resultat du filtre merci comme meme

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #6

Désolé.
Deux pistes cependant.
Il reste encore plein de ListBox1 dans votre code.
s1 fait référence à la feuille Worksheets("P-1") qui est vide. Donc :
For Each ara In s1.Range("i2:i" & LastRow) ne renverra aucune cellule
If CLng(CDate(ara.Value)) >= CLng(CDate(tarih1)) renverra toujours Faux.

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 10 Octobre 2020

• #7

franchement je coince je me suis deniche ses codes un peut partout mais apparement j'ai pas reussi a mettre un bon classeur

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #8

Un peu au pif, j'ai corrigé les ListBox1 en ListBox2, et modifié s1 en s1 = Worksheets("Data").
J'ai rectifié tous les offset qui ne peuvent être que négatif puisque la référence est la colonne I.
Je remplis la ListBox. Surement au pif, mais vous pouvez corrigé en fonction de votre besoin.

 

Pièces jointes

• populate_textboxes_basedon_listboxitem_ (4).xlsm

  64.1 KB · Affichages: 7

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 10 Octobre 2020

• #9

merci

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 11 Octobre 2020

• #10

Merci beaucoups le filtre marche bien
je fait comment pour imprimer le résultat d'un filtre avec une extraction dans une autre feuille ?

 

Vote positif 0 Vote négatif