Je bug sur un "moteur de recherche"

Bonjour, faisant encore partie des débutants en VBA, pour l'instant, j'assemble des bouts de code trouvés sur des tutos. Malheureusement, cela ne marche pas toujours !!!

Mon problème actuel...

Quand je vais sur le tableau de bord, j'aimerais afficher les priorités dans les pièces détachées à récupérer suivant le stock présent dans l'inventaire.

Voici le formulaire que je commence pour rechercher les priorités suivant plusieurs critères.

Pour l'instant, cela fonctionne pas trop mal....

Mais évidement, c'est après que cela se complique...

Je n'arrive pas à charger correctement les différentes infos dans la liste déroulante car ce ne sont pas des colonnes contiguës.

Du coup, je n'arrive pas non plus à alimenter la recherche via la textbox.

Si vous avez un peu de temps pour m'aider...

C'est un fichier avec identification, donc user = Admin et mdp = admin

Un grand merci à ceux qui pourront m'aider et bon week-end à tous

Bonjour

A quoi serve le combobox et le textbox?

en simplifiant l'initialisation de l'userform

Private Sub UserForm_Initialize()
Const MesLargeurs = "0;70;240;90;0;0;60;60;60"
   With Fmprio.ListBox1
      .ColumnCount = [T_inventaire].Columns.Count
      .ColumnWidths = MesLargeurs
      .List = [T_inventaire].Value
   End With
End Sub

A+ François

Ps j'ai renommé le tableau sur la feuille inventaire en T_inventaire

Bonjour Fanfan38,

le combobox servira à charger les différentes entêtes : " Catégories " "Modèles " "Pièces " "Stock " " Mini " et " A faire "

une fois le combobox chargé, seule ce qui correspondra aux lettres dans la texbox s'affichera dans la listbox.

Merci pour ton code, simple, propre et compréhensible!!!!

Pour alimenter la combobox, je suis parti sur une solution de facilitée.

Maintenant, comment faire en sorte que la textbox réagisse avec la combobox pour l'affichage dans la listbox?

Option Explicit

'chargement listbox

Private Sub UserForm_Initialize()
Const MesLargeurs = "0;70;240;90;0;0;60;60;60"
   With Fmprio.ListBox1
      .ColumnCount = [T_inventaire].Columns.Count
      .ColumnWidths = MesLargeurs
      .List = [T_inventaire].Value
'Alimentation de la combobox

ComboBox1.List() = Array("Catégorie", "Modèle", "Pièce", "Stock actuel", "Stock mini", "A faire")

   End With

End Sub

Avec une recherche sur les modèles...

A+ François

Avec recherche par colonne...

A+ François

Bonjour,

La moindre des politesses c'est de répondre...

A+ François