Discussion :

[zaza62000]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

• VBA ArrayList – Mega-Guide Updated for 2022
• VBA ArrayList – A Complete Guide
• VBA – ArrayList class – a helper to sort arrays in VBA

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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