Bonjour,
Etant novice dans la programmation VBA, ce forum m'ayant beaucoup aidé, je me permet de vous soumettre un petit problème dont je n'ai pas encore trouve de solution:
 
Dans Excel j'ai créé des userforms contenant des Combobox. Celles ci sont alimenté par des sélections dans la feuille active de mon fichier à chaque lancement de la macro.
j'ai réussi à supprimer les doublons (grace a un morceau de code trouvé sur le forum) mais je n'arrive pas a trier les valeur par ordre alphabétique voire alphanumérique.
 
voici un extrait du code pour l'alimentation d'une combobox
 
'---chargement des Préparateurs existants
    Dim AllCells1 As Range, Cell1 As Range
    Dim NoDupes1 As New Collection
    Dim i1 As Integer, j1 As Integer
    Dim Swap11, Swap21, Item1
     
    frmprog.listeprepa.Clear 'nettoie la combobox1
     
    Set AllCells1 = Range("E2", Range("E2" ).End(xlDown).Address)
     
'   La ligne suivante ignore l'erreur causée
'   par la tentative d'ajout d'un Préparateurs existant déja
'   Le duplicat n'est pas ajouté
    On Error Resume Next
    For Each Cell1 In AllCells1
        NoDupes1.Add Cell1.Value, CStr(Cell1.Value)
    Next Cell1
 
'   Resume normal error handling
    On Error GoTo 0
     
'   Ajoute les items triés et non-dupliqués dans une ComboBox
    For Each Item1 In NoDupes1
        frmprog.listeprepa.AddItem Item1
    Next Item1
 
 
Merci de vos conseils

pour trier par ordre alphabétique, tu peux faire un tri à bulles en fonction du contenu ou du nom de ta combo box.

Merci bien pour ta réponse, je me demandais si il n'y avait pas une solution plus simple.

Ben... C'est encore ce qu'on fait de plus élémentaire.