Autofilter dans une combobox ?

Bonjour Jeff,

Voici un petit exemple :

Pour appliquer ceci : Tu NE DOIT PAS définir la propriété "ROWSOURCE" de ton combobox

'------------------------------------
Sub TrierOrdreCroissantComboboxList()

Dim Rg As Range, Tblo As Variant

With Worksheets("Denis")
Set Rg = Range("A1:A" & .Range("A65536").End(xlUp).Row)
Tblo = Rg
End With

UserForm1.ComboBox1.List = BubbleSort(Tblo)

Set Rg = Nothing

End Sub

'------------------------------------
Function BubbleSort(List As Variant)

Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp

First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'------------------------------------


Salutations!




"Jeff !" <Jeff !@discussions.microsoft.com> a écrit dans le message de news:
13784523-8480-4882-BAC7-686A6C6B0DBF@microsoft.com...
Bonjour,
Ma petite requête:
Dans un Userform, j'ai une ComboBox (qui prend les valeurs de la colonne A)
et je voudrais que les données soient filtrées quand je clique sur cette
dernière.
Un peu à l'image des filtres automatiques sur une feuille de calcul.

Aussi si je tiens à faire ceci dans un Userform, c'est parce qu'il me sert à
ajouter et rechercher dans mes données.

Cordialement,