Tri Alpha combobox

Version imprimable

Tri Alpha combobox

Bonjour,

Que faut-il que j'ajoute pour trier par alpha ma combobox SVP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function Fillsportvalues()
    Dim ws As Worksheet
    Dim cell As Range
    Dim uniqueValues As Collection
    Set uniqueValues = New Collection
 
    Set ws = ThisWorkbook.Sheets("listing")
 
    On Error Resume Next
    For Each cell In ws.Range("H:H")
        If cell.Value <> "" Then
        uniqueValues.Add cell.Value, CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
 
    Me.cbSport.Clear
 
    Dim Val As Variant
    For Each Val In uniqueValues
        Me.cbSport.AddItem Val
    Next Val
 
End Function

05/05/2024, 11h47
Philippe Tulliez

ArrayList
Bonjour,

Citation:

Que faut-il que j'ajoute pour trier par alpha ma combobox SVP

Voir cette discussion Utilisation de l’objet «System.Collections.ArrayList"

Et pour approfondir la question, quelques liens intéressants

1 pièce(s) jointe(s)

Bonjour,
En relisant votre demande, je constate que vous avez la version 365 d'Excel et qu'outre le tri de la colonne, vous souhaitez supprimer les doublons, donc il y a évidemment plus simple.

Dans mon exemple, j'ai une table nommée t_Data (Tableau Structuré) qui contient une colonne nommée Ville

Si je souhaite dans Excel obtenir cette colonne triée et sans les doublons, je vais utiliser la formule =TRIER(UNIQUE(t_Data[Ville])) soit en anglais =SORT(UNIQUE(t_Data[Ville]))

Pour obtenir le même résultat en VBA et pour l'envoyer dans le ListBox du UserForm, je vais utiliser la fonction Evaluate

La procédure cidessous est à placer dans un module Standard
Le UserForm se nomme UserForm1 et le ListBox lstUniqueSorted
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Main() Const TableName As String = "t_Data" Const LabelColumn As String = "Ville" Dim lst As ListObject Dim rng As Range Dim l As Variant Set lst = Range(TableName).ListObject Set rng = lst.ListColumns(LabelColumn).DataBodyRange ' With UserForm1 .lstUniqueSorted.List = Evaluate("=SORT(UNIQUE(" & rng.Address(External:=True) & "))") .Show End With Set lst = Nothing: Set rng = Nothing End Sub
Illustration

Pièce jointe 654229