selection combobox pour affichage listbox, Inventaire :)

Version imprimable

Bonjour bonjour,
Je n'ai aucune idée de comment faire et suis débutant
alors voila j'ai une listbox
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() With Me.inventaire_liste .ColumnCount = 11 .ColumnWidths = "55 pt;180 pt;120 pt;0 pt;0 pt;35 pt;40 pt;49,95 pt" .ColumnHeads = True .RowSource = "Inventaire!A2:K1048576" End With End Sub
Il y a aussi une listbox qui contient (Tout, En stock, Bientôt épuisé, A commander)
Et j'aimerai que quand celle-ci est mise sur Tout la listbox affiche tout, mais quand on sélectionne un autre statut ca n'affiche que les lignes dans la liste dont colonne K de ma feuille Inventaire contient les autres info de la combobox.

Merci d'avance

Bonjour,
Tu peux utiliser les filtres automatiques dans ta base de donnée.
Quand tu choisis un élément dans ta cbox, si cet élément <> Tout :

Appliquer un filtre à ta BDD en colonne K --> AutoFilter
Créer une feuille que l'on nommera tempSht
Copier la BDD avec filtre
Coller dans tempSht
Alimenter ta listbox avec les données de tempSht
Supprimer tempSht
Enlever le filtre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub cbox_change() Dim tempSht As Worksheet, Dim derLig As Long '1. Si Listbox <> "Tout" appliquer le filtre --> AutoFilter '2. Nouvelle feuille Set tempSht = Sheets.Add '3. Copier-coller données de la BDD vers tempSht --> méthode Copy '4. Alimenter la listbox derLig = tempSht = Range("A" & Rows.Count).End(xlUp).Row listbox.List() = tempSht.Range("A1:K" & derLig).Value '5. Supprimer feuille temporaire --> utiliser Application.DisplayAlerts = False pour éviter les messages d'alertes '6. Enelever le filtre --> AutoFilter sans critère. End Sub

Déja merci de prendre le temps de me répondre:),
Je ne comprend pas trop ou je dois mettre le code (dans ma combobox?)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_change()
Dim tempSht As Worksheet, Dim derLig As Long
    '1. Si Listbox <> "Tout" appliquer le filtre --> AutoFilter
    '2. Nouvelle feuille
    Set tempSht = Inventaire.Add
    '3. Copier-coller données de la BDD vers tempSht --> méthode Copy
    '4. Alimenter la listbox
    derLig = tempSht = Range("A" & Rows.Count).End(xlUp).Row
    inventaire_liste.List() = tempSht.Range("A1:K" & derLig).Value
    '5. Supprimer feuille temporaire --> utiliser Application.DisplayAlerts = False pour éviter les messages d'alertes
    '6. Enelever le filtre --> AutoFilter sans critère.
 
End Sub

et quand j'essai ca, il me met une erreur de syntaxe donc je me plante mais je comprend pas bien

28/07/2017, 16h25
riaolle

Attention, je ne t'ai pas donné le code, mais une trame du code ! Il faut compléter ;)
Par contre, c'est bien

Code:

Set tempSht = Sheets.Add

et pas

Code:

Set tempSht = Inventaire.Add

On ajoute une feuille à l'ensemble des feuilles.
Et enfin, j'ai fait une erreur de frappe, c'est bien entendu :

Code:

derLig = tempSht.Range("A" & Rows.Count).End(xlUp).Row

Est-ce que tu comprends le principe du code ? Parce que c'est surtout cela qui est important. Une fois que tu comprends ce que je veux te faire faire, il n'y a plus qu'à.

Citation:

Je ne comprend pas trop ou je dois mettre le code

Tu veux que le code se déclenche au moment où tu changes la valeur de la cbox, non? Donc tu le mets dans l'évènement change de la combobox concernée.