problème sur un UserForm

[sdenis92]

Bonjour le forum,

Voilà j'ai un souci pour effectuer une recher sur un Userform.
Je cherche trier grace à un combobox.
Ci-joint mon fichier.

Merci pour votre aide

Cordialement

http://www.excel-pratique.com/~files/do ... enis92.xls

Sdenis92

[felix]

Bonjour,

un exemple de code, pour ta recherche :

Code: Tout sélectionner

Private Sub CommandButton2_Click()
Dim Nbr As Integer, I As Integer
Dim Cel As Range
If Me.ComboBox1 <> "" Then
    Me.ListBox1.Clear
    Me.ListBox1.ColumnCount = 2
    With Sheets("Feuil2")
    Nbr = Application.CountIf(.Range("B6:B" & .[B65000].End(xlUp).Row), CDbl(Me.ComboBox1))
    ReDim Voitures(1 To Nbr, 1 To 2)
    I = 1
    For Each Cel In .Range("B6:B" & .[B65000].End(xlUp).Row)
        If Cel.Value = CDbl(Me.ComboBox1) Then
            Voitures(I, 1) = Cel.Offset(0, -1).Value: Voitures(I, 2) = Cel.Value
            I = I + 1
        End If
    Next Cel
    End With
    Me.ListBox1.List = Voitures
End If
End Sub


[sdenis92]

Merci beaucoup Felix pour ton aide. C'est exactement ce que je cherchais.

Cordialement

Sdenis92