XL 2010 filtre date between

nabilexcel2007

XLDnaute Occasionnel
Bonjour je bug avec mes filtres
et j'ai un message d'erreur
et j'aimerai aussi savoir est est ce que j'ai vraiment besoin d'actualiser mon listbox2 apres le filtre avec tout ses boutons
Mersi
 

Pièces jointes

  • populate_textboxes_basedon_listboxitem_.xlsm
    75.9 KB · Affichages: 21
  • Sans titreuuuu.png
    Sans titreuuuu.png
    19.9 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 = ""
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Discussions similaires

Statistiques des forums

Discussions
312 329
Messages
2 087 327
Membres
103 518
dernier inscrit
hbenaoun63