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

Filtrer les lignes afficher dans un userform

Créer une discussion

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

pmfontaine

XLDnaute Occasionnel
Bonjour, Je ne sais pas si mon titre est bien clair car j'ai eu beau chercher sur le Net avec ces mots clés et bien d'autres, mais je n'ai rien trouvé.
1 - J'aurais besoins de votre aide pour filtrer les résultats dans les TextBox en fonction des sélections faites dans des ComboBox ?
2 - Et t'il possible de lire les données de la feuille en restant sur une autre feuille ?

Je pense que la lecture du fichier joint sera beaucoup plus explicite que mon texte.
Merci d'avance pour votre aide
Patrick
 

Pièces jointes

Trier par date Trier par votes
Bonjour,
Je reviens vers vous car mon fichier est maintenant opérationnel, j'ai donc commencé a l'utiliser, mais j'ai un petit soucis très aléatoire (2 fois sur 120 lignes saisies).
Voir copie écran joint (Mon fichier comporte maintenant beaucoup de Nom Propre et je ne peux pas le joindre dans l'état. Mais ce code est parfaitement identique a celui que vous (Dranreb) avez mis dans le fichier du 08/01)
J'ai refais la saisie sur l'espèce qui a crée l'erreur, mais la deuxième fois aucun problème.



Merci d'avance pour votre réponse
Patrick
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir.
Très étrange.
Allez en débogage et mettez un espion sur L et un autre sur LBx.ListCount.
Parce qu'à mon avis ça ne peut se produire que si LBx.ListCount < L + 1
Si c'est le cas il faut voir par quelle suite de circonstances le UBound(TLgn) peut devenir en désaccord avec LBx.ListCount.
Notez qu'il pourrait y avoir un moyen de se passer de TLgn en rangeant les numéros de lignes dans une colonne supplémentaire de largeur nulle dans la LBx. Au moins comme ça ça ne pourrait plus arriver.
 
Vote positif 0 Vote négatif
Ah j'ai un très fort soupçon: dans ma version j'ai dans la CBnEnreg_Click un LBx.Clear qui n'est pas suivi de ReDim TLgn(-1 To -1) pour vider logiquement TLgn.
Ou du moins ils y sont les deux sont plus bas, mais en commentaire…
 
Vote positif 0 Vote négatif
Bonsoir,
Merci Branreb pour votre réponse
Dranreb à dit:
Allez en débogage et mettez un espion sur L et un autre sur LBx.ListCount.
Cliquez pour agrandir...
Ok, je ne connais pas les espions, mais j'ai vu comment les mettre en place.
Je suppose qu'une fois en place je fais des essais jusqu’à ce que ça bug et je regarde ?
Dranreb à dit:
Notez qu'il pourrait y avoir un moyen de se passer de TLgn en rangeant les numéros de lignes dans une colonne supplémentaire de largeur nulle dans la LBx. Au moins comme ça ça ne pourrait plus arriver.
Cliquez pour agrandir...
Et bien, perso, il me semble que si ont a une solution pour éviter le bug ? Pourquoi sans priver ? Est-ce que vous pouvez le faire sur le fichier du 08/01 ? Car moi, vous vous doutez que je ne sais pas comment faire.
Dranreb à dit:
Ah j'ai un très fort soupçon: dans ma version j'ai dans la CBnEnreg_Click un LBx.Clear qui n'est pas suivi de ReDim TLgn(-1 To -1) pour vider logiquement TLgn.
Ou du moins ils y sont les deux sont plus bas, mais en commentaire…
Cliquez pour agrandir...
Vous pensez qu'il faut remplacer
VB: 
LBx.Clear:
CL.Nettoyer
Me.CBxDéjàObs = ""
Me.CBxSite = ""
Me.datedesobservations = ""
'LBx.Clear: ReDim TLgn(-1 To -1)
CBnEnreg.Enabled = False
Par
VB: 
LBx.Clear:
CL.Nettoyer
Me.CBxDéjàObs = ""
Me.CBxSite = ""
Me.datedesobservations = ""
LBx.Clear: ReDim TLgn(-1 To -1)
CBnEnreg.Enabled = False
C'est ça ?
Je pense pouvoir faire des essais avec les espions demain.
Bonne soirée
Patrick
 
Vote positif 0 Vote négatif
Oui ça va aussi comme ça mais alors il n'y a plus lieu de laisser le 1er LBx.Clear non suivi de Redim TLgn(-1 To -1)

Les espions peuvent se mettre lors d'un arrêt, en débogage. Pas besoin de les mettre avant de tenter une exécution.
 
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

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
221
Yogean
Y
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
1 K
kiko_23
K
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
266
Redba13
R
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
242
ChTi160
  • Question Question
XL 2021 Alimenter une ComboBox dans l'ordre décroissant
2
Réponses
15
Affichages
414
murainesouspatate
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
537
Manon71.
M
B
  • Question Question
Microsoft 365 afficher les photos dans un TCD
Réponses
10
Affichages
505
chris
  • Question Question
Autres Alimenter un ComboBox
2
Réponses
17
Affichages
942
Dranreb
  • Question Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
1 K
Dudu2
  • Question Question
XL 2016 afficher les valeur a 0
Réponses
4
Affichages
475
richardlion
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
760
Nel'
N
F
  • Question Question
Autres Combobox multiples dans un userform
Réponses
1
Affichages
487
herve62
V
  • Question Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
461
Gégé-45550
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
567
tactic6
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
526
AIXELS
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
70 K
NONO14
N
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
792
Liner77
L
D
  • Question Question
Microsoft 365 Fonction de Recherche de différents tableaux avec plusieurs résultats ?
2
Réponses
15
Affichages
1 K
Cousinhub
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
549
Jojo973
E
  • Résolu(e)
XL 2019 Filtrer les donnes d'une listbox
2
Réponses
15
Affichages
1 K
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…