Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Afficher données dans listbox sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion KTM
  • 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 !

S'inscrire

KTM

XLDnaute Impliqué
Bonjour chers tous

Dans mon fichier joint mon userform affiche tous les enregistrements de ma base.
Mais je voudrais afficher uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs .
Pour l'Heure j'ai fait le code pour afficher tous.
VB: 
Private Sub UserForm_Initialize()
Dim dl As Long
dl = Sheets("VA").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("VA").[A1].CurrentRegion.Resize(dl, 10)
    ListBox2.ColumnCount = .Columns.Count
    If .Rows.Count > 1 Then ListBox2.RowSource = .Rows(2).Resize(.Rows.Count - 1).Address
End With
End Sub

Merci et soyons en sécurité.
 

Pièces jointes

Trier par date Trier par votes
re,

Il faut nettoyer la propriété RowSource avant le filtrage :
VB: 
Private Sub UserForm_Initialize()
    ListBox2.RowSource = "" ' nettoyage de la source
    Filtre
    With Sheets("Filtre").Range("A4").CurrentRegion.Resize(, 10)
        ListBox2.ColumnCount = .Columns.Count
        If .Rows.Count > 1 Then ListBox2.RowSource = "Filtre!" & .Rows(2).Resize(.Rows.Count - 1).Address
    End With
End Sub

P.S. il est préférable de rajouter le nom de la feuille au rowsource.

Cordialement
 
Vote positif 0 Vote négatif
Bonsoir @KTM @Roblochon @BOISGONTIER, le Forum


J'ai repris le classeur d'origine en filtrant sur l'alimentation de la ListBox mais donc plus en RowSource mais en AddItems + List pour les colonnes. C'est une autre approche.

J'essaie donc de prendre "uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs " comme spécifié dans le post initial. Je gère aussi les années bissextiles avec une petite fonction connue sur le net.

Par exemple si on tape 15/02/2020, il prendra toutes les écritures du 1 au 29 février 2020 inclus et celles aussi de janvier 2020 et de décembre 2019... Si j'ai bien compris ?

Bonne soirée
Bien à vous & take care
@+Thierry
 

Pièces jointes

Vote positif 0 Vote négatif
Salut @BOISGONTIER

Oui dans ton programme, je pense oui, puisque tu n'indiques que le numéro de mois.

Moi j'ai une autre approche dans mon classeur pour essayer de respecter scrupuleusement la demande initiale qui était donc "uniquement les enregistrements du mois indiqué en cellule L1 et des mois antérieurs "

Bien à toi et bon confinement
@+Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
625
KRUG WOO
K
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
942
ChTi160
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
591
AIXELS
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
J
  • Question Question
XL 2016 Affichage onglets d'un classeur dans la listbox d'un userform
Réponses
2
Affichages
806
jeff2318
J
O
  • Résolu(e)
XL 2010 Afficher un TCD dans un UserForm
Réponses
5
Affichages
1 K
job75
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
865
Mody200
M
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
579
INFINITY100
I
M
  • Question Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
865
meyscal
M
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
  • Question Question
XL 2016 rafraîchir écran
Réponses
0
Affichages
985
KTM
  • Question Question
XL 2016 Remplacer cellules vides par zéro dans plage variable.
Réponses
2
Affichages
833
job75
  • Question Question
XL 2019 Substituer fonction INDIRECT dans une formule
Réponses
9
Affichages
1 K
KTM
  • Question Question
Autres Modifier la réf dans un nom (gestionnaire - xl 2007)
Réponses
5
Affichages
627
sourcier08
  • Question Question
XL 2019 Lenteur macro
Réponses
3
Affichages
990
KTM
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
  • Question Question
XL 2016 Supprimer plage cellules sous condition
Réponses
4
Affichages
999
KTM
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
646
troki74
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…