Remplir listbox

Bonjour à tous,

J'ai besoin de votre aide, je suis débutant en programmation VBA et j'ai ce petit travail à réaliser.

J'aimerais remplir une listbox dans un userform à partir de ma feuille Excel qui est une base de données.

Ma base de données est constituée de différents articles, chacun appartenant à une famille.

Pour chaque article, nous avons la TVA, le prix HT et TTC, le stock mini et le stock réel.

J'aimerais savoir comment faire pour afficher dans la listbox seulement les articles dont le stock réel est inférieur au stock mini ?

De plus j'aimerais afficher le nom de l'article, son prix et son stock réel à l'aide de plusieurs colonnes si cela est faisable ?

Je vous joins le fichier pour que vous ayez une idée un peu plus précise de mon besoin.

Merci par avance de vos réponses...

Salut,

Oui tout a fait faisable. J'y regarde

Voilà. Je l'ai fait pour toutes les catégories.

Je te conseille de le mettre en user_form initialize, comme cela ta liste sera directement remplie à l'ouverture. Le système d'onglet me parait plus compliqué à mettre en place qu'une liste déroulante.

Private Sub UserForm_Initialize()
[...]
End Sub

Bon courage. j'espère avoir répondu!

Merci beaucoup pour cette réponse très rapide et qui répond parfaitement à mon besoin.

En fait le système d'onglet permet de trier les articles par familles.

Je pense qu'en réutilisant ton code et en spécifiant la recherche que pour une certaine famille (la première colonne) c'est possible d'y arriver. Enfin j'espère...

En tout cas merci !!

Oui, mais avec une combobox cela pourrait être bien plus simple et ne rendrai pas l'utilisation plus compliquée.

Pour la recherche avec la première colonne, utilise

Instr

ou

Like avec Ucase

Je suis à ta disposition si tu as besoin d'aide.

En reprenant le fichier de AdrienP grâce auquel on peut voir dans une liste box quels articles ont un sotck réel inférieur au stock miini, est-ce que quelqu'un serait capable d'afficher juste le nombre d'articles qui sont dans ce cas là ?

Oui probablement. J'y regarde.

Simplement :

[...]
x =  ListBox1.ListCount 'Cela te donne la taille de ta listbox donc le nombre d'éléments dans ce cas.
Msgbox (x)

J'espère que c'était ta demande.

A+

Et si je veux le faire apparaître dans un Label ?

Label2.Caption =("Stocks inférieurs :  " & k )' c'est le nom de ton label que tu dois mettre.

Après à toi de l'adapter pour que quelque soit le moment, le label ai toujours un nom correct. Donc mon conseil et d'ajouter dans :

Private Sub UserForm_Initialize()
lable2.caption  = ("Ton nom")

Ou simplement faire deux label; un avec le nom et l'autre avec le nombre d'article

C'est bon, impeccable. Merci beaucoup !