Combobox ordre alphabétique

[Atiom]

Bonsoir le forum,

Le code ci-dessous récupère les données sans doublons mais ne les affiche pas par l’ordre alphabétique.
Ets-ce que quelqu’un peu m’aider à le compléter svp ? Merci d’avance .

Dim Cell As Range
     
    'Supprime les données existantes dans le ComboBox
    Me.Champ23.Clear
    'Boucle sur les cellules de la plage L2:L9232 pour alimenter le ComboBox
    For Each Cell In Worksheets("Annuelles").Range("w2:w9232")
    Me.Champ23 = Cell
    'remplissage sans doublon
    If Me.Champ23.ListIndex = -1 Then _
    Me.Champ23.AddItem Cell
    Next Cell

 

[Staple1600]

Re : Combobox ordre alphabétique

Bonsoir à tous

Atiom
Tu devrais trouver de l'aide dans la faq du forum
https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

 

[Atiom]

Re : Combobox ordre alphabétique

Salut Staple1600,
Effectivement.
Et pourtant j’ai effectué une recherche avant !!!
Et essayé d’adapter plusieurs codes et pas vu celui-là.
Mea culpa.
Merci Staple1600.🙂
Bonne soirée

 

[BOISGONTIER]

Re : Combobox ordre alphabétique

Bonjour,

Méthode rapide

Cf Listes sans doublons triée

JB