XL 2019 UserForm de recherche

FloToublanc · 11 Août 2023

Bonjour à tous,

Je me permets de solliciter votre aide car cela fait maintenant quelques jours que je n'arrête pas de chercher un moyen de finaliser mon UserForm.
Je vous explique :

Sur une feuille de mon classeur (Feuille1), j'ai un tableau d'inventaire avec des numéros de sites, des noms de machines, des numéros de série et années de fabrication.
J'ai commencé à construire mon UserForm de manière à ce que lorsque je choisis un site en particulier, il m'affiche toutes les machines et autres critères de ce site.
Le problème étant qu'il ne m'affiche à chaque fois seulement les éléments présents dans la première ligne contenant ce numéro de site.

Ce que je cherche en particulier serait de savoir comment afficher les critères des lignes suivantes du tableau pour ce numéro de site.
Le fichier exemple est en pièce-jointe.

Merci d'avance pour votre aide.

Flo.

vgendron · 11 Août 2023

Bonjour

ton formulaire laisse penser que tu ne peux avoir QUE 4 machines maxi pour un site..??

une fois que tu as la liste des machines... que comptes tu en faire??

1) il faudrait je pense aller plus loin dans l'explication de ton projet: à quoi sert ton formulaire? nb de lignes maxi... etc etc

2) tu pourrais par exemple
remplacer le textbox "site" par un combo qui te donne la liste des sites: suffirait donc de selectionner un site parmi ceux proposés

à la place des 4 lignes de textbox, mettre une listbox qui te lites toutes les lignes de ta base de données

Dranreb · 11 Août 2023

Bonjour.
Affichez plutôt dans une ListBox les correspondances trouvées
Et tant qu'à faire les SITE dans une ComboBox
J'ai un module qui peut en dresser une liste classée sans doublon, ainsi que les listes de numéros de lignes de chaque valeur.

vgendron · 11 Août 2023

Hello Bernard

en PJ une proposition avec un combo et une listbox

Dranreb · 11 Août 2023

Ma version.

Jacky67 · 11 Août 2023

FloToublanc à dit:
Bonjour à tous,

Je me permets de solliciter votre aide car cela fait maintenant quelques jours que je n'arrête pas de chercher un moyen de finaliser mon UserForm.
Je vous explique :

Sur une feuille de mon classeur (Feuille1), j'ai un tableau d'inventaire avec des numéros de sites, des noms de machines, des numéros de série et années de fabrication.

J'ai commencé à construire mon UserForm de manière à ce que lorsque je choisis un site en particulier, il m'affiche toutes les machines et autres critères de ce site.

Le problème étant qu'il ne m'affiche à chaque fois seulement les éléments présents dans la première ligne contenant ce numéro de site.

Ce que je cherche en particulier serait de savoir comment afficher les critères des lignes suivantes du tableau pour ce numéro de site.
Le fichier exemple est en pièce-jointe.

Merci d'avance pour votre aide.

Flo.

Bonjour,
Perso, j'irais certainement vers quelque chose comme ceci (Cela me semble plus approprié)
A voir.....

FloToublanc · 11 Août 2023

Jacky67 à dit:
Bonjour,
Perso, j'irais certainement vers quelque chose comme ceci (Cela me semble plus approprié)
A voir.....

Bonjour Jacky,

Tout d'abord merci de votre retour, je ne comprends pas comment vous faites pour afficher les valeurs sous "Machine", "Année de Construction" et "Numéro de Série" dans votre ListBox.

Cordialement,

Flo

FloToublanc · 11 Août 2023

Dranreb à dit:
Ma version.

Merci de votre retour, Je n'ai malheureusement pas les compétences nécessaires en VBA pour comprendre tout ce que vous avez pu faire.

Cordialement,

Flo

FloToublanc · 11 Août 2023

vgendron à dit:
Bonjour

ton formulaire laisse penser que tu ne peux avoir QUE 4 machines maxi pour un site..??

une fois que tu as la liste des machines... que comptes tu en faire??

1) il faudrait je pense aller plus loin dans l'explication de ton projet: à quoi sert ton formulaire? nb de lignes maxi... etc etc

2) tu pourrais par exemple
remplacer le textbox "site" par un combo qui te donne la liste des sites: suffirait donc de selectionner un site parmi ceux proposés

à la place des 4 lignes de textbox, mettre une listbox qui te lites toutes les lignes de ta base de données

Bonjour,

Le fichier étant en pj n'est qu'un exemple, je compte adapter "mon code" avec vos retours, l'UserForm permet seulement d'avoir une recherche un peu plus "sexy" et rapide que les filtres dans des tableaux ou autres. Le nombre de lignes n'est pas fixe et peut bouger en cas d'achat de nouvelles machines.

Merci pour votre retour, je vais me servir de vos conseils pour avancer.

Cordialement,

Flo

Jacky67 · 11 Août 2023

FloToublanc à dit:
Bonjour Jacky,

Tout d'abord merci de votre retour, je ne comprends pas comment vous faites pour afficher les valeurs sous "Machine", "Année de Construction" et "Numéro de Série" dans votre ListBox.

Cordialement,

Flo

RE..
La listBox est alimentée après un filtre sur le n° du site par ce code
Me.ListBox1.List = [Tableau_Machines].SpecialCells(xlCellTypeVisible).Value
Pour ne pas afficher la colonne A (les sites)
Dans les propriétés de la ListBox1
ColumnCount=4
Pour afficher le nombre de colonne de la base de donnée
ColumnsWidths = 0 pt
On peut dans avec cette propriété configurer la largueur des colonnes des ListBoxs
=0 n'affiche pas la première colonne dans ce cas
Un peu de lecture

Propriété ColumnWidths

Rubrique de référence sur Office VBA

learn.microsoft.com

Pour le reste de l'affichage, ce n'est que le placement de "Machine", "Année de Construction" et "Numéro de Série" à leurs emplacements appropriés.

Dranreb · 14 Août 2023

Bonjour.

FloToublanc à dit:
Je n'ai malheureusement pas les compétences nécessaires en VBA pour comprendre tout ce que vous avez pu faire.

C'est peut être parce que vous avez cherché à étudier le code du module de service MSujetCBx au lieu d'essayer de comprendre ce que renvoie dans l'UserForm sa fonction SujetCBx
Elle renvoie Array(LesClés, LesListes)
Avec Sujet(0), donc LesClés: Classé et sans doublon basée 0, à affecter à la ComboBox.List
et Sujet(1), donc LesListes: Tableau basée 0 des listes de numéros de lignes basées 1
TLgn = Sujet(1)(ComboBox1.ListIndex) renvoie donc la liste des numéros de lignes dans RngDon où figure la valeur de la ComboBox1.

XL 2019 UserForm de recherche

FloToublanc

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

FloToublanc

XLDnaute Nouveau

FloToublanc

XLDnaute Nouveau

FloToublanc

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Propriété ColumnWidths

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires