XL 2013 Filtre avancé dans listbox userform

  • Initiateur de la discussion Initiateur de la discussion loul03
  • 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 !

loul03

XLDnaute Occasionnel
bonjour

je voudrais faire apparaitre les résultats d'un filtre avancé dans un e liste box qui s'ouvre dans un userform.

J'arrive à obtenir les bons tris lorsque je fais directement via le menu excel mais lorsque je passe par ma macro , toutes les cellules se cachent.

est ce que qqn peut m'indiquer ce qui ne va pas dans mon code svp?
VB:
Private Sub Tri_Click()
Sheets("HISTORIQUE PARC").Select
  Range("o2").Value = num_parc
  Range("r2").Value = ">=" & DTPicker10
  Range("s2").Value = "<=" & DTPicker11
 
  Range("A1:L100").AdvancedFilter _
         Action:=xlFilterInPlace, _
         CriteriaRange:=Range("n1:t2"), _
         Unique:=False
End Sub

par avance, je vous en remercie
cdt
loul
 

Pièces jointes

Fait avec un programme générique:

TblBD = f.Range("A2:M" & f.[A65000].End(xlUp).Row).Value ' BD (Adapter)
ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8) ' colonnes à visualiser (adapter)
colDate = 6 ' colonne Date (Adapter)

-La largeur des colonnes du ListBox sont calculées avec les largeurs des colonnes de la BD
-Les titres de la ListBox sont ceux de la BD

JB
 

Pièces jointes

Dernière édition:
Jean-marie ta technique a l'air de bien fonctionner . je la garde parce que j'ai un peu de mal avec celle de JB. désolée JB je ne suis pas bien douée.

par contre sait on choisir la largeur des différentes colonnes de la listbox?

merci bien!!
 
Bonsoir tous,
Attention le control DTPicker , n'est plus dispo depuis la version 2013 & 2016 et faut batailler pour le charger.
Ce control n'est plus dispo sur ma machine depuis mon installation du 2016 et plante l'userform1.
Bon a savoir pour le futur.
Bruno
 
- 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
3
Affichages
2 K
Guest
G
Réponses
1
Affichages
13 K
Compte Supprimé 979
C
Réponses
3
Affichages
2 K
Compte Supprimé 979
C
Réponses
8
Affichages
3 K
Retour