Filtrer une listbox

Bonjour à tous ! Bonjour le forum

J'ai un petit soucis pour filtrer une listbox...

En gros j'essai de faire une petite apps pour gérer mes commandes et toutes c'est commandes ont sois le status "approuvé" sois "non approuvé"

j'aurai voulu filtre dans ma listbox toutes les commandes "approuvée" et dans une autre listbox les "non approuvée"

Ces valeurs ce trouve dans la colonne AB de la page commandes

Est ce que quue pourai m'aider s.v.p !!

Merci d'avance

Private Sub UserForm_Initialize()
Worksheets("Commandes").Select
Dim Plage As String
With Sheets("Commandes")
    Plage = .Range("A2:AB" & .Range("A65536").End(xlUp).Row).Address
End With
CommandeListBox2.RowSource = "Commandes!" & Plage

Bonjour

Sans fichier

Une solution

Attention la colonne A ne doit contenir que des indications uniques

Option Explicit

Private Sub UserForm_Initialize()
Dim Mondico1 As Object
Dim Mondico2 As Object
Dim J As Long

  Set Mondico1 = CreateObject("Scripting.dictionary")
  Set Mondico2 = CreateObject("Scripting.dictionary")

  With Sheets("Commandes")
    For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      If .Range("AB" & J) = "approuvé" Then
        Mondico1(.Range("A" & J).Value) = ""
      Else
        Mondico2(.Range("A" & J).Value) = ""
      End If
    Next J
  End With

  Me.ListBox1.List() = Mondico1.keys
  Me.ListBox2.List() = Mondico2.keys
End Sub

Voila le fichier le temps de tester tous ça !

Bonjour

Ah désolé mais si j'avais eu le fichier avant je n'aurais pas proposé cette solution

Je ne sais pas comment fonctionne la propriété ColumHeads avec la commande Additem

Quelqu'un trouvera une solution